Const handsfree = true; n=5; var a: array[1..5, 1..5] of real; max, min, temp: real; sum, product, harmonic: real; i, j, m, n, k: integer;
begin writeln('Данные матрицы:'); for i := 1 to n do begin for j := 1 to n do if handsfree then begin a[i, j] := random(100) - 50; write(a[i, j]:4, ' ') end else read(a[i, j]); writeln; end; end.