Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Program trung_binh;
Uses crt;
Var n, i: integer;
Diem: array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln;
End.
program bt;
uses crt;
var a: array [1..100] of real;
n,i: longint;
begin
clrscr;
writeln(‘nhap so hoc sinh’); readln(n);
for i:= 1 to n do begin
writeln(‘nhap diem cua ban thu ‘,i); readln(a[i]); end;
clrscr;
for i:= 1 to n do writeln(‘Ban thu ‘,i,’ co diem la ‘,a[i]:2:1);
readln
end.