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

Question

Информатика

Ферапонт

29 июня, 07:05

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

+3

Ответы (1)

Знаете ответ?

Тихослава · 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.