Напишите программу, которая меняет местами два соседних элемента списка (a[0] и a[1], a[2] и a[3] ...и - id1702702420210324 от missliss05 24.03.2021 14:14

Question

Информатика: Напишите программу, которая меняет местами два соседних элемента списка (a[0] и a[1], a[2] и a[3] ...и т.д.). Если количество элементов нечетное, то последнее число должно остаться на месте. ПИТОН

missliss05 · Accepted Answer

1)
program gt;
var a,b:array[1..100]of integer;
n,m,i:longint;
begin
Randomize;
a[5]:=-20;
for i:=1 to 8 do
begin
if(i<5)then a[i]:=random(101)+100;
if(i>4)then a[i+1]:=random(101)+100;
end;
for i:=1 to 9 do
begin
write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,max:longint;
begin
Randomize;
max:=-20;
for i:=1 to 8 do
begin
a[i]:=random(101)+100;
if(a[i]>max)then max:=a[i];
end;
for i:=1 to 8 do
begin
if(a[i]<>max)then write(a[i],' ');
if(a[i]=max)then write(0,' ',a[i],' ');
end;
end.

MOGZ ответил