Дан массив a:erray [1..100] of real Составить программу нахождения суммы его элементов
Дан массив 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.
Не нашли ответ?
Похожие вопросы