Составьте программу вычисления суммы положительных элементов одномерного массива. в паскале
Const n=4;
Var a:array [1..n] of integer;
s,i:integer;
begin
randomize;
for i:=1 to n do begin
a[i] := random(100);
write(a[i]:6);
end;
writeln;
s:=0;for i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln(simma=,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
