Question

30 БАЛЛОВ задание на PASCAL 11 класс

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

Answer 1

Программа:

Pascal:

const N = 10;

var

 pol, otr, nul, i: integer;

 arr: array[1..N] of integer;

begin

 randomize;

 for i := 1 to N do begin

   arr[i] := random(-10, 10);

   if arr[i] > 0 then inc(pol);

   if arr[i] = 0 then inc(nul);

   if arr[i] < 0 then inc(otr);

 end;

 writeln('Массив: ',arr);

 writeln('Положительных чисел: ', pol);

 writeln('Нулей: ', nul);

 writeln('Отрицательных чисел: ', otr);

end.