Предмет: Информатика,
автор: kristinachupakhina
Дан массив натуральных чисел. Найти сумму элементов массива больших 10. Решить в виде программы на языке Паскаль.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: salenoora
Предмет: Русский язык,
автор: OvMen
Предмет: Английский язык,
автор: marikkomarik2002
Предмет: Литература,
автор: крошечкаао
Предмет: Математика,
автор: Aderevnina24