program cau1;
uses crt;
var toan , van, tbc : array[20..30] of real;
i:integer;
begin
clrscr ;
for i:=20 to 30
begin
write('nhap vao diem toan:') ; readln(toan[i]);
write('nhap vao so diem van:') ; readln(van[i]);
tbc[i] :=(van[i]+toan[i]i)/2;
end;
for i:=20 to 30 do
writeln('diem trung binh la:',tbc[i]:0:2);
readln
end.
Bạn xem cái nào khác bạn sửa nhé