2
1
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1990
1608
uses crt;
var diem: array[1..100] of real;
i,n: integer;
begin
clrscr;
write ('Nhap do dai mang diem: '); readln (n);
for i:=1 to n do
begin
write ('Nhap diem cua hoc sinh thu ',i,': '); readln (diem[i]);
end;
writeln ('Xuat mang diem: ');
for i:=1 to n do writeln ('Diem cua hoc sinh thu ',i,': ',diem[i]:1:2);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var n,i: integer;
d: array[1..100] of real;
begin
clrscr;
write('Nhap so hoc sinh: '); readln(n);
write('Nhap diem tung hs: ');
for i:=1 to n do read(d[i]);
write('Diem cua tung hs la: ');
for i:=1 to n do write(d[i]:2:2,' ');
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