Дан массив натуральных чисел. Найти сумму элементов - вопрос №1011649898 от rom252 08.03.2020 05:54

Question

Информатика: Дан массив натуральных чисел. Найти сумму элементов массива больших 10. Решить в виде программы на языке Паскаль.

rom252 · Answer

var

a: array [1..10] of integer;

c: integer;

s: longint;

begin

write('array? ');

for c := 1 to 10 do read(a[c]);

for c := 1 to 10 do inc(s, a[c]);

writeln('sum: ', s);

end.