Дан двумерный массив А [7,8], заполненный случайным образом. Заменить нечетные элементы массива на число 0 СРОЧНОО ГАЙСЫ

на каком языке-то надо, ТС?

BEGIN
[1:7,1:8] INT a;
print(("до:",new line));
FOR i FROM 1 LWB a TO 1 UPB a DO
FOR j FROM 2 LWB a TO 2 UPB a DO
a[i,j]:=100-ENTIER(201*next random);
printf(($3z-d$,a[i,j]))
OD; print(new line) OD;
FOR i FROM 1 LWB a TO 1 UPB a DO
FOR j FROM 2 LWB a TO 2 UPB a DO
IF a[i,j] MOD 2/=0 THEN a[i,j]:=0 FI
OD OD;
print(("после:",new line));
FOR i FROM 1 LWB a TO 1 UPB a DO
FOR j FROM 2 LWB a TO 2 UPB a DO
printf(($3z-d$,a[i,j]))
OD; print(new line) OD
END

скриншот:

решение на Turbo Pascal 7.0. Учти, что нечетные элементы массива можно брать по строкам и столбцам, что я в программе и отразил. Задание звучит как-то скомкано и что-то неблагозвучно

program matrix_1;
uses crt;
var a: array [1..100,1..100] of integer;
i, j, n, m: integer;
begin
clrscr;
randomize;
n:=7;
m:=8;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= 100 + random (900);
write (a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
if (j mod 2 = 1) or (i mod 2 = 1) then
a[i,j]:=0;
write (a[i,j]:4);
end;
writeln;
end;
readln;
end.