Найдите сумму положительных элементов заданного массива, содержащего 5 чисел
Найдите сумму положительных элементов заданного массива, содержащего 5 чисел
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Var a: array [1..5] of integer;
i, s: integer;
Begin
S:=0;
For i:=1 to 5 do
Readln(a[i]) >0 then s:=s+a[i];
Writeln(s)
End.