Информатика, опубликовано 2018-08-22 20:15:03 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.