Дан массив натуральных чисел. Найти сумму элементов - вопрос №1011649723 от 48385 20.04.2023 13:20

Question

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

48385 · 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.