Заголовок: Программа на языке Pascal для поиска элемента, равного или кратного своему номеру в массиве
Дата публикации:

Заголовок: Программа на языке Pascal для поиска элемента, равного или кратного своему номеру в массиве

930cac9f

  1. Объявление переменных:

    • arr: массив целых чисел
    • n: количество элементов в массиве
    • i: переменная для итерации по массиву
  2. Ввод данных:

    • Вводим количество элементов в массиве n
    • Создаем массив arr размером n
    • Заполняем массив arr целыми числами
  3. Поиск элемента, равного или кратного своему номеру:

    • Проходим по массиву arr с помощью цикла for i := 0 to n-1 do
    • Проверяем условие if arr[i] mod (i+1) = 0 then
    • Если условие выполняется, выводим элемент на экран writeln('Элемент, равный или кратный своему номеру: ', arr[i]);
  4. Завершение программы:

    • Выводим сообщение о завершении программы writeln('Программа завершена.');

Пример программы на языке Pascal:

program FindElement;

var
  arr: array of integer;
  n, i: integer;

begin
  writeln('Введите количество элементов в массиве:');
  readln(n);

  SetLength(arr, n);

  writeln('Введите элементы массива:');
  for i := 0 to n-1 do
    readln(arr[i]);

  for i := 0 to n-1 do
  begin
    if arr[i] mod (i+1) = 0 then
    begin
      writeln('Элемент, равный или кратный своему номеру: ', arr[i]);
      break; // если нужно найти только один элемент
    end;
  end;

  writeln('Программа завершена.');
end.

Эта программа позволяет найти и вывести на экран элемент массива, который равен или кратен своему номеру в массиве.

Видеочат