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

Ответы 1

  • 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.
    answer img
    answer img
    • Автор:

      cook
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years