var x: array[1..m1, 1..n1] of integer; i, j, m, n, mx, mn: integer;
begin Write('Введите через пробел число строк и столбцов матрицы: '); Readln(m, n); Randomize; writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to n do begin x[i, j] := Random(100) - 50; Write(x[i, j]:5) end; Writeln end; for i := 1 to m do begin mx := x[i, 1]; mn := mx; for j := 2 to n do if mx < x[i, j] then mx := x[i, j] else if mn > x[i, j] then mn := x[i, j]; Writeln('В строке ', i, ' мin=', mn, ', max=', mx) end end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 5 8
begin var flag := true; var a := readinteger; var b := readinteger; for var i := a to b do if (i * i).ToString.EndsWith(i.ToString) then begin write(i, ' '); flag := false; end; if flag then write(-1) end.