Дать точный ответ на 3 задания по информатике

Question

Информатика: Дать точный ответ на 3 задания по информатике

grasstv · Accepted Answer

Var max_i, max_j, j, columns, rows, i : integer; arr: array[1..10,1..10] of integer; Begin   rows := random(8) + 2;   columns := random(8) + 2;   writeln(rows, columns);     for i := 1 to rows do     for j := 1 to columns do       arr[i, j] := random(100);   for i := 1 to rows do begin     writeln();     for j := 1 to columns do       write(arr[i, j]:3);   end;   writeln();   writeln();   max_i:=1;   max_j:=1;   for i := 1 to rows do     for j := 1 to columns do       if arr[max_i, max_j] arr[i,...

MOGZ ответил