Что демонстрирует данная операция?Что выйдет в конечном итоге? const
N=25;
var
a:array[1..N] of integer;
i:byte;
sum:integer;
begin
randomize;
for i:=1 to N begin
arr [i]:=random (10)-5;
write (arr[i]:4);
end;
writeLn;
sum:=0;
for i:=1 to N do
if arr [i]>0 then
sum:=sum+arr[i];
writeLn (sum 5);
end.
Решение представлено во вложении.
Язык: Pascal;
Программа подсчитывает сумму положительных элементов массива и выводит её на экран.