Question

Làm giúp mình bài này với ạ! Mình đag cần gấp!!

Cho đoạn chương trình sau, hãy dùng iến mảng để khai báo biến cho chương trình:

Var a, Thunhap_TB: real; i:integer;

Begin

         Thunhap_TB := 0;

         for i:=1 to 50 do

         begin

             write('Thu nhap cua gia dinh thu ', i);

             readln(a);

             Thunhap_TB + a

        end;

        Thunhap_TB := Thunhap_TB/50;

        for i := 1 to 50 do begin

        write('Thu nhap cua gia dinh thu ',i); readln(a);

        writeln('Do lech so voi thu nhap TB la: ', a - Thunhap_TB)

        end;

End.

(Bài này là trong sgk tin 8/ tr71 nha mn nhưng mà cô giáo giao là thay vào biến kiểu mảng nhưng mình ko bt, bạn nào biết thì giải giúp mình nha, còn 2 ngày nữa là mình nộp cô r. Cảm ơn các bạn nhìu ạ <3 :333).

Answer 1

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

for i:=1 to 50 do readln(a[i]);

t:=0; for i:=1 to 50 do t:=t+a[i];

writeln(t/50:4:2);

readln;

end.