Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Ngôn ngữ: C++
#include <bits/stdc++.h>
using namespace std;
long long n;
long long minx=LLONG_MAX;
long long a[100000];
int main()
{
cin>>n;
for(int i=1;i<=n;i++){
cin>>a[i];
}
sort(a+1,a+n+1);
for(int i=2;i<=n;i++){
minx=min(minx,a[i]-a[i-1]);
}
cout<<minx;
return 0;
}
var A:
array[1..n] of int64;
i, n, count: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
count := 0;
for i := 1 to n do
if A[i] > 0 then
count := count + 1;
writeln('So luong cac so nguyen duong trong mang la: ', count); end.
const fi='calc.inp';
fo='calc.out';
var f1,f2:text;
max,a,b,c,d1,t1,i,x,y,d2,t2,d,e,d3,t3,f,g:integer;
st1,st2,st3:string;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
str(a,st1);
str(b,st2);
str(c,st3);
d1:=length(st1);
t1:=1;
for i:=1 to d1 do
begin
val(st1[i],x,y);
t1:=t1*x;
end;
d2:=length(st2);
t2:=1;
for i:=1 to d2 do
begin
val(st2[i],d,e);
t2:=t2*d;
end;
d3:=length(st3);
t3:=1;
for i:=1 to d3 do
begin
val(st3[i],f,g);
t3:=t3*f;
end;
max:=t1;
if max<t2 then max:=t2;
if max<t3 then max:=t3;
writeln(f2,max);
close(f1);
close(f2);
end.
#include <bits/stdc++.h>
using namespace std;
string st, a[1000];
int d,i,dem,kt,j,ln;
char x;
int main()
{
freopen("charhz.inp","r",stdin);
freopen("charhz.out",'"w",stdout);
cin>>st;
d=st.length();
a[1]=st[0];
dem=1;
for (i=0; i<d; i++)
{
kt=0;
for (j=1; j<=dem; j++)
if (a[j]==st[i]) kt=1;
if (kt==0)
{
dem++;
a[dem]=st[i];
}
}
ln=0;
for (i=1; i<=dem; i++)
{
dem=0;
for (j=0; j<=d-1; j++)
if (a[i]==st[j]) dem++;
if (ln<dem)
{
ln=dem;
x=a[i];
}
}
cout<<x<<" "<<ln;
return 0;
}
Đề không cho biết là dãy số được nhập từ bàn phím, có bao nhiêu phần tử hay giới hạn của dãy số... nên không thể dùng pascal được nhé.
Có thể là làm trên excel. Bạn dùng hàm max nhé:
=max(giá trị 1, giá trị 2,...)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[3000];
int main()
{
long long m, n;
cin>>m;
for(int i=1; i<=m; i++)
{
cin>>a[i];
}
cout<<m<<'\n';
for(int i=1; i<=m; i++)
{
cout<<a[i]<<" ";
}
}