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

Question

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

Бикулова · 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.