Составить программу для решения . найти сумму всех положительных элементов массива

Question

Информатика: Составить программу для решения . найти сумму всех положительных элементов массива

leratyurina · Answer

Var ar:array[1..10] of integer;s,i:integer;begin;for i:=1 to 10 dobegin;readln(ar[i]);if ar[i] 0 then s:=s+ar[i];end;writeln(s);end....