задан случайно массив из 20 целых чисел в интервале от -100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов
Answers & Comments
vanecyakubov
Begin for i:=1 to 20 then begin a[i]:=random(100)-100; if (a[i]<0) then inc(k); if (a[i]=0) then inc(b); if (a[i]>0) then inc(c); end; writeln("Кол-во положительных чисел: ", c); writeln("Количество отрицательных чисел:",k); writeln("Количество нулевых:", b);
Answers & Comments
for i:=1 to 20 then begin
a[i]:=random(100)-100;
if (a[i]<0) then inc(k);
if (a[i]=0) then inc(b);
if (a[i]>0) then inc(c);
end;
writeln("Кол-во положительных чисел: ", c);
writeln("Количество отрицательных чисел:",k);
writeln("Количество нулевых:", b);