Question

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

Answer 1

Uses crt;
Var
       mas:array[1..10, 1..10] of integer;
       i,k,minln,pr:integer;
Begin
minln:=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.