begin // Ввод элементов массива for i := 1 to 8 do begin write('Введите элемент ', i, ': '); readln(arr[i]); end;
// Поиск элементов с остатком от деления на M равным 1 writeln('Элементы массива с остатком от деления на ', M, ' равным 1:'); for i := 1 to 8 do begin if arr[i] mod M = 1 then writeln(arr[i]); end; end.
program RemainderEqualsOne;
const
M = 3;
var
arr: array[1..8] of integer;
i: integer;
begin
// Ввод элементов массива
for i := 1 to 8 do
begin
write('Введите элемент ', i, ': ');
readln(arr[i]);
end;
// Поиск элементов с остатком от деления на M равным 1
writeln('Элементы массива с остатком от деления на ', M, ' равным 1:');
for i := 1 to 8 do
begin
if arr[i] mod M = 1 then
writeln(arr[i]);
end;
end.