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

Конечно, я могу помочь вам с этой задачей. Ниже представлено решение на языке Паскаль:

program NegativeArrayElements;



const

  MAX_SIZE = 100;



var

  arraySize, i: integer;

  arrayNumbers: array[1..MAX_SIZE] of integer;



begin

  // Ввод размера массива

  writeln("Введите размер массива:");

  readln(arraySize);



  // Ввод элементов массива

  writeln("Введите ", arraySize, " целых чисел:");

  for i := 1 to arraySize do

    readln(arrayNumbers[i]);



  // Вывод номеров и значений отрицательных элементов

  writeln("Отрицательные элементы массива:");

  for i := 1 to arraySize do

  begin

    if arrayNumbers[i] < 0 then

      writeln("Номер: ", i, " Значение: ", arrayNumbers[i]);

  end;



  readln;

end.

Эта программа позволяет пользователю вводить массив из n целых чисел и выводит на экран номера и значения всех отрицательных элементов в этом массиве.

Программа начинается с объявления константы `MAX_SIZE`, которая определяет максимальный размер массива (в данном случае 100). Далее идут объявления переменных: `arraySize` для хранения размера массива и `arrayNumbers` для хранения самих чисел.

Затем программа запрашивает у пользователя ввести размер массива и считывает его значение с помощью `readln(arraySize)`.

Далее программа запрашивает у пользователя ввести `arraySize` целых чисел и считывает их значения в массив `arrayNumbers` с помощью цикла `for`.

После этого программа выводит на экран номера и значения всех отрицательных элементов массива, используя еще один цикл `for`. Если значение элемента меньше нуля (`arrayNumbers[i] < 0`), то программа выводит его номер и значение на экран.

Наконец, программа ожидает, пока пользователь нажмет Enter, чтобы завершить выполнение программы.

Теперь, чтобы проверить работу программы на массивах, которые вы указали, введите следующие значения:

а) Размер массива: 7
Элементы массива: 3, 5, -2, 0, -6, -8, 1

б) Размер массива: 7
Элементы массива: -1, -2, -3, 0, -1, 2, 3

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

Надеюсь, что данное пошаговое объяснение помогло вам разобраться в задаче и решении на языке Паскаль. Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать их.