Question

Задано 5 чисел. Вычислить их сумму и проверить, является ли она числом, большим 100.
цикл пожалуйста..

Answer 1

Объяснение:

program s5;

var a:array[1..5] of integer;

i,s:integer;

begin

for i:=1 to 5 do

begin

readln(a [ i ]);

s:=s+a [ i ];

end

writeln('s=',s);

end.