KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var i:byte; a:array[1..100]of byte; begin clrscr; for i:=1 to 20 do begin write(‘Nhap diem thi mon tin hoc cua ban thu ‘,i,’: ‘);readln(a[i]); end; write(‘Diem cua cac ban: ‘); for i:=1 to 20 do write(a[i],’ ‘); readln end.
program diem_thi;
uses crt;
var A:array[1..20] or real;
i:integer;
begin
clrscr;
for i:=1 to n do
begin
write(‘Nhap diem thi ban thu ‘,i,’: ‘); readln(A[i]);
end;
writeln(‘DIEM THI THEO THU TU LA:’);
for i:=1 to n do writeln(A[i]:0:2);
readln;
end.
uses crt;
var i:byte; a:array[1..100]of byte;
begin
clrscr;
for i:=1 to 20 do
begin
write(‘Nhap diem thi mon tin hoc cua ban thu ‘,i,’: ‘);readln(a[i]);
end;
write(‘Diem cua cac ban: ‘);
for i:=1 to 20 do write(a[i],’ ‘);
readln
end.