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

vika2088 vika2088    3   27.03.2020 13:51    0

Ответы
aselja228 aselja228  12.10.2020 06:57

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика