Question

viết chương trình nhập điểm môn tin học cho N học sinh và in ra màn hình theo hàng ngang ( lấy 1 chứ số thập phân ). Với N điểm kiểm tra đc nhập từ bán phím.

Answer 1

uses crt;

var n,i:integer;

a:array[1..100]of real;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Nhap diem cua hoc sinh thu ',i,'='); readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4:1,' ');

readln;

end.