Question

Заполнить линейный массив из 10 элементов случайными числами от -50 до 50. Заменить все отрицательные его элементы на 0. Pascal ABC

Answer 1

Var
  a: array [1..10] of integer;
  i: byte;
 
begin
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(101) - 50;
  write(a[i], ' ');
end;

writeln(#13+' *** Измененный массив ***');
for i := 1 to 10 do
begin
  if a[i] < 0 then a[i] := 0;
  write(a[i], ' ');
end;
 
end.

Answer 2

Для заполнения линейного массива из 10 элементов случайными числами от -50 до 50 и замены всех отрицательных элементов на 0 в Pascal ABC, вы можете использовать следующий код:

pascalCopy code
program RandomArray;

const
  N = 10;

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

begin
  // Инициализируем генератор случайных чисел
  Randomize;
  
  // Заполняем массив случайными числами от -50 до 50
  for i := 1 to N do
    arr[i] := Random(101) - 50; // Random(101) генерирует случайное число от 0 до 100, отнимаем 50, чтобы получить числа от -50 до 50

  // Заменяем отрицательные элементы на 0
  for i := 1 to N do
    if arr[i] < 0 then
      arr[i] := 0;

  // Выводим исходный массив и полученный массив
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  readln;
end.

Программа сначала инициализирует генератор случайных чисел с помощью Randomize, чтобы каждый раз при запуске получать разные случайные числа. Затем она заполняет массив arr случайными числами от -50 до 50 с помощью функции Random(101) - 50, и затем заменяет все отрицательные элементы на 0. Наконец, программа выводит исходный и полученный массивы.