Заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов
Заполнить массив случайными числами в интервале [2;-2] и подсчитать количество положительных элементов
Гость
Ответ(ы) на вопрос:
ГостьПаскаль ____________ uses crt;
var
min,k, i , n : integer;
m: array [1..100] of integer;
begin
randomize;
n:= 5;
for i:= 1 to n do
m[i]:= random (5)-2;
for i:= 1 to n do
write (m[i],' ');
for i:= 1 to n do
if m[i]>0 then k:= k+1;
writeln ;
writeln (k);
readkey;
end.
Не нашли ответ?
Похожие вопросы