var arr: array [1..10] of integer;
numOfPositive, i: integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
arr[i]:=random(-100, 100);
write(arr[i], ' ');
end;
writeln();
if arr[i] > 0 then
numOfPositive += 1;
writeln('Количество положительных элементов: ', numOfPositive);
end.
var arr: array [1..10] of integer;
numOfPositive, i: integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
arr[i]:=random(-100, 100);
write(arr[i], ' ');
end;
writeln();
for i:=1 to 10 do
if arr[i] > 0 then
numOfPositive += 1;
writeln('Количество положительных элементов: ', numOfPositive);
end.