Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад