Поменять местами значения второго и третьего элементов в одномерном массиве. Вывести на экран исходный массив, заданный пользователем любым способом, и преобразованный массив.

Question

Информатика

Валентина

18 апреля, 20:03

Поменять местами значения второго и третьего элементов в одномерном массиве. Вывести на экран исходный массив, заданный пользователем любым способом, и преобразованный массив.

+2

Ответы (1)

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

Протас · Answer 1

Uses crt;

const n=7;

var a:array[1 ... n] of integer;

i:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (100) - 50;

writeln (a[i]) ;

end;

writeln;

a[2]:=a[2]+a[3];

a[3]:=a[2]-a[3];

a[2]:=a[2]-a[3];

for i:=1 to n do

writeln (a[i]) ;

end.