0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Đề 1:
program De_1;
uses crt;
var A:array [1..500] of real;
n,i: integer;
S: real;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('Cac phan tu trong day: ');
for i:=1 to n do
begin
write(A[i],' ');
S:=S+A[i];
end;
writeln;
write('Tong cac phan tu trong day = ',S:2:3);
readln
End.
Đề 2:
program De_2;
uses crt;
var A:array [1..500] of integer;
n,i,min: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
min:=A[1];
write('Cac phan tu trong day: ');
for i:=1 to n do
begin
write(A[i],' ');
if A[i]<min then min:=A[i];
end;
writeln;
write('Phan tu min: ',min);
readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin