Question

Дана одновимірна матриця близько 12. Знайти номери рядків всіх парних елементів. сделать в Pascal

Answer 1

var m: array [1..12] of integer;

i: integer;

begin

       for i := 1 to 12 do

       begin

               m[i] := random(21) - 10;

               write(m[i]:4);

       end;

       writeln();

   

       write('Номери рядків всіх парних елементів:');

       for i := 1 to 12 do

       begin

               if m[i] mod 2 = 0 then

                       write(i:4);

       end;

end.