1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести **...

Question

1.для матрицы 3* 3 обнулить все элементы с четным значением.результат вывести на экран
2.для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением .результат вывести на экран.
язык програмирования паскаль!
помогите плиз!!

Answer 1

1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
     x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
             if a[x,y] mod 2=0 then a[x,y]:=0;
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do begin
         for y:=1 to n do
             write(a[x,y]:4);
         writeln;
     end;
end.

2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
    x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do
         for y:=1 to n do
             if a[x,y]=0 then writeln(x,',',y);
end.