Question

Viết chương trình nhập điểm môn tin cho 5 học sinh in ra màn hình dãy dãyemr tin vừa nhập, điểm trung bình môn tin

Answer 1

uses crt;

var a:array[1..5]of real;

i:byte;

t:real;

begin

clrscr;

for i:=1 to 5 do

begin

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

end;

for i:=1 to 5 do

writeln('Diem cua ban thu ',i,'=',a[i]:4:2);

t:=0;

for i:=1 to 5 do

t:=t+a[i];

writeln('Diem trung binh la: ',t/5:4:2);

readln;

end.