Question

Что демонстрирует данная операция?Что выйдет в конечном итоге?
const
N=25;
var
arr:array[1..N] of integer;
i:byte;
sum:integer;
begin
randomize;
for i:=1 to N begin
arr [i]:=random (20)-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. ​

Answer 1

Решение представлено во вложении.

Язык: Pascal;

Программа подсчитывает сумму положительных элементов массива и выводит её на экран.