Question

Решыте плиз !!!!!Я не понимаю плиз срочно!!!!

Answer 1

Program v9;
uses crt;

var a: array [1..6] of real;
    i: integer;
    s: real;

begin
clrscr;

for i:=1 to 6 do
begin
     write('a[',i,'] = ');
     readln(a[i]);
     s:=s+a[i];
end;

writeln('Sum = ', s);
end.