Регистрация
Tkora
14.02.2021 03:53
Информатика
Есть ответ 👍

, задание на картинке (комп. сети)

296
396
Посмотреть ответы 1

Ответы на вопрос:

koteyka1232
koteyka1232
4,4(46 оценок)
Var   y: array[1..999, 1..999] of integer;   i, j, n, m: integer;   chet: boolean; begin   randomize;     readln(n, m);   //рандомно заполняем и выводим  двумерный массив числами от 0 до 100   for i: =1 to n do   begin     for j: =1 to m do begin       y[i, j]: =random(101);       write(y[i, j],' ');     end;     writeln;   end;   writeln;   for i: =1 to n do   begin       chet: =true;     for j: =1 to m do       if y[i, j] mod 2 < >   0 then         chet: =false;     if chet = true then       write(i, ' ');   end; end.

Популярно: Информатика