viết chương trình nhập bào biến mảng điểm môn tin học và in ra màng hình cho n học sinh .với n và điểm môn học nhập từ bàn phím
giúp với ạ!
viết chương trình nhập bào biến mảng điểm môn tin học và in ra màng hình cho n học sinh .với n và điểm môn học nhập từ bàn phím giúp với ạ!
By Iris
Program tin;
var a: array[1..100] of integer;
i, n: integer;
begin
repeat
Write(‘So hoc sinh: ‘); readln(n);
until n > 0;
For i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
writeln(‘Diem cua’,n,’hoc sinh la: ‘);
For i:=1 to n do write(a[i],’ ‘);
Readln
End.
Program diemtin;
uses crt;
var diem : array[1..100] of integer;
n,i : integer;
begin clrscr;
write(‘Nhap so hoc sinh la :’); readln(n);
For i:=1 to n do begin
write(‘Nhap diem mon Tin cua hoc sinh thu ‘,i,’ la :’); readln(diem[i]);
end;
readln
end.