Дан массив a:erray [1 ... 100] of real

Составить программу нахождения суммы его элементов

Question

Информатика

Лиана

26 августа, 09:50

Дан массив a:erray [1 ... 100] of real

Составить программу нахождения суммы его элементов

+5

Ответы (1)

Знаете ответ на вопрос?

Арсений · Answer 1

Program a;

uses crt;

var i:integer;

a: array [1 ... 100] of real;

s: real;

begin

clrscr;

for i:=1 to 100 do begin

readln (a [i]) ;

s:=s+a [i];

end;

writeln (s) ;

end.

Дан массив a:erray [1 ... 100] of realСоставить программу нахождения суммы его элементов

Дан массив a:erray [1 ... 100] of real

Составить программу нахождения суммы его элементов