Заголовок: Программа на языке Pascal для поиска элемента, равного или кратного своему номеру в массиве
- Объявление переменных:
arr
: массив целых чиселn
: количество элементов в массивеi
: переменная для итерации по массиву
- Ввод данных:
- Вводим количество элементов в массиве
n
- Создаем массив
arr
размеромn
- Заполняем массив
arr
целыми числами
- Вводим количество элементов в массиве
- Поиск элемента, равного или кратного своему номеру:
- Проходим по массиву
arr
с помощью циклаfor i := 0 to n-1 do
- Проверяем условие
if arr[i] mod (i+1) = 0 then
- Если условие выполняется, выводим элемент на экран
writeln('Элемент, равный или кратный своему номеру: ', arr[i]);
- Проходим по массиву
- Завершение программы:
- Выводим сообщение о завершении программы
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.
Эта программа позволяет найти и вывести на экран элемент массива, который равен или кратен своему номеру в массиве.