viết chương trình nhập điểm kiểm tra môn toán 35 học sinh và in ra màn hình với điểm kiểm tra và số học sinh nhập từ bàn phím
viết chương trình nhập điểm kiểm tra môn toán 35 học sinh và in ra màn hình với điểm kiểm tra và số học sinh nhập từ bàn phím
program diem_toan;
uses crt;
var diem:array[1..35] of real;
n,i:byte;
begin
clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem ban thu ‘,i,’: ‘); readln(diem[i]);
end;
writeln(‘Ket qua diem toan theo thu tu la:’);
for i:=1 to n do writeln(diem[i]:0:2);
readln;
end.
uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln(‘nhap so hoc sinh: ‘);readln(n);
writeln(‘nhap diem’);
for i:=1 to n do
begin
write(‘a[‘,i,’]’);readln(a[i]);
end;
for i:=1 to n do write(‘hoc sinh ‘,i,’ duoc ‘,a[i],’ diem mon tin’);
readln
end.