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 ạ!
Question
Lost your password? Please enter your email address. You will receive a link and will create a new password via email.
Answers ( )
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.