Question

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

Answer 1

Конечно! Вот пример программы на языке Паскаль, которая заполняет массив случайными числами от -40 до 40 и выводит на экран отрицательные числа:

pascalCopy code
program RandomArray;

const
  N = 10; // размер массива

var
  arr: array[1..N] of Integer;
  i: Integer;

begin
  Randomize; // инициализация генератора случайных чисел
  
  // заполняем массив случайными числами от -40 до 40
  for i := 1 to N do
    arr[i] := Random(81) - 40;
  
  // выводим отрицательные числа
  writeln('Отрицательные числа в массиве:');
  for i := 1 to N do
  begin
    if arr[i] < 0 then
      writeln(arr[i]);
  end;
  
  readln;
end.

Программа создает массив arr размером N и заполняет его случайными числами от -40 до 40 с помощью функции Random. Затем она выводит на экран все отрицательные числа из массива. Вы можете изменить значение N в программе, чтобы задать другой размер массива.