составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и тд. Выведите на экран исходный и полученный массивы.
Answers & Comments
egakulikov9
A:array[1..10] of integer; i:integer begin randomize; for i:=1 to 10 do begin a[i]:=random(9)+1; end; for u:=1 to 10 do begin write(a[u]) a[u]:=b[u] end; a[1]:=b[2]; a[2]:=b[1]; a[3]:=b[4]; a[4]:=b[3]; a[5]:=b[6]; a[6]:=b[5]; a[7]:=b[8]; a[8]:=b[7]; a[9]:=b[10]; a[10]:=b[9]; write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],a[10]); end.
Answers & Comments
i:integer
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(9)+1;
end;
for u:=1 to 10 do begin
write(a[u])
a[u]:=b[u]
end;
a[1]:=b[2];
a[2]:=b[1];
a[3]:=b[4];
a[4]:=b[3];
a[5]:=b[6];
a[6]:=b[5];
a[7]:=b[8];
a[8]:=b[7];
a[9]:=b[10];
a[10]:=b[9];
write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],a[10]);
end.
как вариант:)