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.
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Program HOC24;
var d,i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
d:=0;
for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri la uoc cua 10');
write('Cac phan tu o vi tri chan la: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
writeln;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do if i mod 2=1 then write(a[i],' ');
readln
end.
program chuongtrinh;
uses crt;
var chan, le, i,dem1, dem2 :integer;
a:array [1 .. 1000 ] of integer;
begin
write (' Nhap gia tri n = ');
readln (n);
for i:=1 to n do
begin
write ('a[',i,']= ');
readln (a[i]);
end;
chan:= 0;
dem1:=0;
dem2:=0;
le:= 0;
for i:=1 to n do if i mod 2 = 0 then
begin
dem1:=dem1+1;
chan:=chan+a[i];
end;
for i:=1 to n do if i mod 2 <> 0 then
begin
dem2:=dem2+1;
le:=le+a[i];
end;
writeln (' Tong chan la: ',chan);
writeln (' So phan tu chan trong mang la: ',dem1);
writeln (' Tong le la: ',le);
writeln (' So phan tu le trong mang la: ', dem2);
readln
end.
P/S: thử xem được không nhé.
uses crt;
var a:array[1..100]of integer;
i,n,max,tam,j:integer;
begin
clrscr;
n:=100;
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('Gia tri lon nhat la: ',max);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then dem:=dem+1;
writeln('So phan tu le la: ',dem);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu la: ',t);
readln;
end.
câu 1 :
uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
tbc:real;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------xuat----------------------------}
for i:=1 to n do write(a[i]:2);
{--------------tinh-trung-binh-cong--------------------}
writeln;
t:=0;
for i:=1 to n do
begin
t:=t+a[i];
end;
tbc:=t/n;
write(tbc:4:2);
{----------------------phan-tu-co-gia-tri-max-va-khoang-cach----------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('phan tu lon nhat la: ',max);
readln;
end.
xin lỗi bạn , mình mới chỉ làm được nhiêu đó
câu 2:
uses crt;
var a:array[1..100]of integer;
n,dem,dem1,dem2,dem3,i:integer;
t,dem4,max,j:integer;
begin
clrscr;
{------------------cau-a-------------------------}
writeln('cau a:');
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
{--------------cau-b-----------------------------}
writeln;
writeln('cau b:');
writeln('{--------------------------------}');
dem:=0;
dem1:=0;
dem2:=0;
dem3:=0;
for i:=1 to n do
begin
if a[i]>0 then dem:=dem+1;
if a[i]<0 then dem1:=dem1+1;
if a[i] mod 2=0 then inc(dem2);
if a[i] mod 2=1 then inc(dem3);
end;
writeln('so luong so duong la: ',dem);
writeln('cac so duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so am la: ',dem1);
writeln('cac so am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so chan la: ',dem2);
writeln('cac so chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
writeln('so luong so le la: ',dem3);
writeln('cac so le la: ');
for i:=1 to n do
if a[i] mod 2=1 then write(a[i]:4);
writeln;
writeln('{--------------------------------}');
{------------------cau-c--------------------------}
writeln('cau c:');
t:=0;
dem4:=0;
for i:=1 to n do
if (a[i]>2) and (a[i]<5) then
begin
inc(dem4);
t:=t+a[i];
end;
writeln('so phan tu vua lon hon 2 vua be hon 5 trong day so la: ',dem4);
writeln('tong cua cac phan tu vua lon hon 2 vua be hon 5 trong day so la: ',t);
{---------------cau-d-----------------------------}
writeln('cau d:');
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('phan tu lon nhat trong day so la: ',max);
writeln('cac uoc cua ',max,' la: ');
for j:=1 to max do
if max mod j=0 then write(j:4);
readln;
end.
Program HOC24;
var a: array[1..1000] of integer;
i,n,max: integer;
begin
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
writeln('So lon nhat trong mang la: ',max);
write('Vi tri cua cac phan tu do la: ');
for i:=1 to n do if a[i]=max then write(i,' );
readln
end.