Найдите сумму положительных элементов заданного массива, содержащего 5 чисел
Найдите сумму положительных элементов заданного массива, содержащего 5 чисел
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 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.