Дан двумерный массив целых чисел. Определить минимальный номер строки, состоящей только из чётных элементов. Принять, что такие строки в массиве есть.

Uses crt;Var       mas:array[1..10, 1..10] of integer;       i,k,minln,pr:integer;Beginminln:=0;for i:=1 to 10 do   for k:=1 to 10 do mas[i,k]:=random(10)+1;     for i:=1 to 10 do begin if minln>0 then break; pr:=0;   for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;                               if (pr = 10) then minln:=i;                               end; end;   Writeln('Минимальный номер строки с чётными числами - ',minln);   Writeln('Вот она');   for k:=1 to 10 do write (mas[minln,k],' ');End.