Question

Срочно! Заполнить одномерный массив размерности N случайными числами. Заменить все элементы массива стоящие до максимального элемента нулями. Вывести на экран исходный и полученный массивы. Код нужен в Pascal

Answer 1

PascalABC.NET

Ответ:

• begin
• var a := ArrRandom(ReadInteger('N:'),-99,99);
• a.Println;
• for var i := 0 to a.IndexMax-1 do a[i] := 0;
• a.Print
• end.

Пример работы:

Answer 2

Конечно, вот пример кода на Pascal, который выполняет указанные вами операции:

pascalCopy code
program ReplaceWithZeros;

const
  N = 10; // Размерность массива

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

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

  // Находим индекс максимального элемента
  maxIndex := 1;
  for i := 2 to N do
  begin
    if arr[i] > arr[maxIndex] then
      maxIndex := i;
  end;

  // Заменяем элементы до максимального на нули
  for i := 1 to maxIndex - 1 do
    arr[i] := 0;

  // Вывод исходного массива
  Write('Исходный массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

  // Вывод измененного массива
  Write('Измененный массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;
end.

Этот код создает одномерный массив размерности N, заполняет его случайными числами, находит индекс максимального элемента и заменяет все элементы перед ним на нули. Затем выводит на экран исходный и измененный массивы.