Question

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

Answer 1

Ответ:

program lol;

var

n,i,k:integer;

a: array [1..n] of integer;

begin

read(n);

for i:=1 to n do

a[i]:=random ( 41)-20;

if a[i]>0 then

k+=1;

end.

Объяснение:

Answer 2

Конечно, вот пример кода на языке Паскаль, который выполняет указанную задачу:

pascalCopy code
program CountPositiveElements;

const
  n = 10; // Количество элементов в массиве

var
  arr: array[1..n] of integer;
  i, positiveCount: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами от -20 до 20
  for i := 1 to n do
    arr[i] := Random(41) - 20; // Random(41) генерирует числа от 0 до 40, вычитаем 20

  // Вывод элементов массива (для наглядности)
  writeln('Сгенерированный массив:');
  for i := 1 to n do
    write(arr[i], ' ');

  // Подсчет положительных элементов
  positiveCount := 0;
  for i := 1 to n do
    if arr[i] > 0 then
      positiveCount := positiveCount + 1;

  // Вывод результата
  writeln;
  writeln('Количество положительных элементов в массиве: ', positiveCount);
end.

Обратите внимание, что в этом примере используется процедура Randomize для инициализации генератора случайных чисел, а функция Random(41) - 20 используется для генерации случайных чисел в диапазоне от -20 до 20. Вы можете изменить значение n в константе для определения количества элементов в массиве.