viết chương trình tính điểm trung bình môn tin kt 1 tiết của 30hs lớp 8a

0 bình luận về “viết chương trình tính điểm trung bình môn tin kt 1 tiết của 30hs lớp 8a”

1. Program kt;

   uses crt;

   var A:array[1….30] of real;

   i:integer;

   TB:real;

   begin clrscr;

   for i:=1 to 30 do

   begin

   writeln(‘Nhap diem cua hs thu’,i,’:’); readln(A[i];

   end

   TB:=0;

   for i:=1 to 30 do

   TB:= ( TB+A[i]/30;

   write(‘Diem TB cua 30 hs lop 8a la:’,TB);

   readln

   end.

   Học tốt

   Bình luận

2. uses crt;

   var a:array [1..100] of real; s:real; i:word;

   begin

   clrscr;

   for i:=1 to 30 do

   begin

   write(‘diem mon tin hs thu ‘ ,i,’ la:’);

   readln(a[i]);

   end;

   for i:=1 to n do s:=(s+a[i])/30;

   write(‘TBC diem mon tin cua lop 8a la ‘ ,s:4:2);

   readln

   end.

   Bình luận