ПОМОГИТЕ
Составить программу для решения задач. Найти сумму всех положительных элементов массива
Составить программу для решения задач. Найти сумму всех положительных элементов массива
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var ar:array[1..10] of integer;s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.