Question

В массиве А (15, 10) действительных чисел поменять местами 5 и 8 столбики элементов. Вывести начальный и изменены массивы по строку через два пробела. Turbo Paskal)

Answer 1

Const
   N = 15;
   M = 10;
Var
   A:array[1..N,1..M] of real;
   i,j:integer;
   B:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random*13;
        Write(A[i,j]:6:3,'  ')
        End;
    WriteLn
    End;
WriteLn('Изменённый массив:');
For i:= 1 to N do
    Begin
    B:=A[i,5];
    A[i,5]:=A[i,8];
    A[i,8]:=B;
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(A[i,j]:6:3,'  ');
    WriteLn
    End;
End.