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 i,n,h,max,min,k: longint;
a: array[1..100] of longint
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i],' ');
max:=a[1];
for i:=1 to n do if(max<a[i]) then max:=a[i];
Writeln(max);
min:=a[1];
for i:=1 to n do if(min>a[i]) then min:=ai[i];
writeln(min);
for i:=1 to n do begin
if(a[i] mod 2=0) then h:=h+a[i];
end;
Writeln('Tong cac so chan la:',h);
for i:=1 to n do begin
if(a[i] mod 2<>0) then k:=k+a[i];
end;
writeln('Tong cac so le la:',k);
readln;
end.
program MultiplesOfN;
var
n, i: integer;
begin
repeat
write('Nhap vao so nguyen duong n (0<n<100): ');
readln(n);
until (n > 0) and (n < 100);
writeln('Cac boi so cua ', n, ' co 4 chu so la:');
for i := 1000 to 9999 do
begin
if (i mod n = 0) then
begin
writeln(i);
end;
end;
readln;
end.
program TimDiemCaoNhat;
var
diem: array[1..30] of integer;
i, diemCaoNhat, soThuTu: integer;
begin
for i := 1 to 30 do
begin
write('Nhap diem cua ban thu ', i, ': ');
readln(diem[i]);
end;
diemCaoNhat := diem[1];
soThuTu := 1;
for i := 2 to 30 do
begin
if diem[i] > diemCaoNhat then
begin
diemCaoNhat := diem[i];
soThuTu := i;
end;
end;
writeln('Diem cao nhat la: ', diemCaoNhat);
writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
readln;
end.
