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

Nastiakot1 Nastiakot1    2   09.06.2019 06:40    0

Ответы
Animerica20045 Animerica20045  01.10.2020 22:58
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.
Дан двумерный массив целых чисел. определить минимальный номер строки, состоящей только из чётных эл
Дан двумерный массив целых чисел. определить минимальный номер строки, состоящей только из чётных эл
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика