Question

Даю 35 баллов!Программа паскаль.написать программу так, чтобы в исходном массиве поменялись местами третий и пятый элементы массива.(желательно скрин программы и ответ) Помогите пожалуйста!!!

Answer 1

program mas;

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

   i:integer;

begin

 randomize;

 For i:=1 to 10 do a[i]:=Random(30);

 For i:=1 to 10 do write(a[i],' ');

 writeln;

 i:=a[2];

 a[2]:=a[4];

 a[4]:=i;

 For i:=1 to 10 do write(a[i],' ');

end.