Дан массив 4x4 из целых чисел. вывести на экран только элементы с четными номерами строк (каждая строка массива в отдельной строке). Ввод массива, вывод элементов оформить в виде подпрограмм.

program zz1;

var x1, x2, k, max, min: integer;

m: array[1 ... 4,1 ... 4] of integer;

procedure vvod ();

var i, j:integer;

begin

for i:=1 to 4 do begin

for j:=1 to 4 do begin

m[i, j]:=random (10); / /заполнение матрицы случайными числами и вывод на экран

write (m[i, j]:3);

end;

writeln;

end;

end;

procedure vyvod ();

var i, j:integer;

begin

for i:=1 to 4 do begin

for j:=1 to 4 do begin

if i mod 2 = 0 then write (m[i, j]:3); / / вывод четных строк

end;

writeln;

end;

end;

begin

vvod (); / / вызываем процедуру ввода

vyvod (); / / вызываем процедуру вывода

end.