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.

Answer 2

Задание на PASCAL: Генерация случайных чисел и подсчет их количества

Для выполнения данного задания на языке Pascal, вам потребуется сгенерировать N случайных целых чисел в диапазоне от -10 до 10 и записать их в массив. Затем необходимо подсчитать количество положительных, отрицательных и нулевых значений среди этих чисел. Наконец, выведите на экран элементы массива и посчитанные количества.

Вот пример кода, который решает данную задачу:

```pascal