Заполнить двумерный массив nxn случайными числами из интервала [-5; 5] и найти максимальный элемент в каждой строке и поменять его первым элементом этой же строки
Uses crt; const n=5; var a: array[1..n,1..n] of integer; i,j,max,k,j1: integer; begin randomize; for i: =1 to n do for j: =1 to n do a[i,j]: =random(10)-5; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; k: =1; max: =-5; repeat for i: =k to k do for j: =1 to n do if a[i,j]> max then begin max: =a[i,j]; j1: =j; end; a[i,j1]: =a[i,1]; max: =-5; inc(k); until k=n+1; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 3); writeln; end; writeln; end.
fab2004
21.02.2022
Ms-dos qbasic 1.0 cls a = 1: b = 4: h = .14 for x = a to b step h f = cos(x ^ 2) + x ^ 3 / sqr(x + 1) print x, f next x результат выполнения программы: 1 1.247409 1.14 1.280647 1.28 1.321321 1.42 1.409588 1.56 1.613091 1.7 2.021439 1.84 2.726152 1.98 3.78488 2.12 5.177972 2.26 6.778177 2.4 8.36335 2.54 9.695479 2.68 10.65637 2.82 11.37576 2.960001 12.24446 3.100001 13.72984 3.240001 16.04016 3.380001 18.86653 3.520001 21.49897 3.660001 23.38719 3.800001 24.74731 3.940001 26.5355