var a: array[1..m, 1..n] of integer; i, j, t: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end; Writeln('Полученный массив'); for i := 1 to m do begin for j := 1 to n do Write(a[i,j]:4); Writeln end end.
Var f:array [1..19] of real; i,k:integer; begin k:=0; for i:=1 to 19 do begin Write('f[',i ,']='); readln(f[i]); if f[i]=6 then k:=k+1; end; Writeln('Количество шестерок: ',k); readln; end.