Question

Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.

Answer 1

program chisla;
var mas:array [1..100] of integer;i,ko,kp:integer;
begin
ko:=0;kp:=0;
Randomize;
for i:=1 to 100 do
 begin 
  mas[i]:=Random(41)-20; 
  if mas[i]<0 then ko:=ko+1; 
  if mas[i]>0 then kp:=kp+1; 
 end;
Writeln('Положительных элементов=',kp);
Writeln('Отрицательных элементов',ko) 
end.

Answer 2

можно указывать так mas[i]:=Random(-80,80) ; будут и положительные и отрицательные