Что демонстрирует данная операция?Что выйдет в конечном итоге?
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.
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.
More Questions From This User See All
Answers & Comments
Решение представлено во вложении.
Язык: Pascal;
Программа подсчитывает сумму положительных элементов массива и выводит её на экран.