ПАСКАЛЬ.НАПИШИТЕ В ПОЛНОЙ ФОРМЕ.Ввести двумерный массив A NxM . Каждый четный элемент массива нацело разделить на два. Массив вывести до и после преобразования.

Предыдущий
вопрос Следующий
вопрос

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

program arrayDivision;
const
N = 3; // количество строк
M = 4; // количество столбцов
var
A: array[1..N, 1..M] of integer;
i, j: integer;
begin
// Ввод двумерного массива
writeln('Введите элементы двумерного массива ', N, 'x', M);
for i := 1 to N do
begin
for j := 1 to M do
begin
read(A[i, j]);
end;
end;
// Вывод массива до преобразования
writeln('Массив до преобразования:');
for i := 1 to N do
begin
for j := 1 to M do
begin
write(A[i, j]:4);
end;
writeln;
end;
// Разделение четных элементов на 2
for i := 1 to N do
begin
for j := 1 to M do
begin
if A[i, j] mod 2 = 0 then
A[i, j] := A[i, j] div 2;
end;
end;
// Вывод массива после преобразования
writeln('Массив после преобразования:');
for i := 1 to N do
begin
for j := 1 to M do
begin
write(A[i, j]:4);
end;
writeln;
end;
end.

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

Введите элементы двумерного массива 3x4
1 2 3 4
5 6 7 8
9 10 11 12
Массив до преобразования:
1 2 3 4
5 6 7 8
9 10 11 12
Массив после преобразования:
1 1 3 2
5 3 7 4
9 5 11 6