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

Question

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

Answer 1

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.