Создать массив из 15 элементов. заполнить его случайными числами от 0 до 50. поменять местами первый и последний, восьмой и седьмой тоже. вывести на экран исходный массив. паскаль
Var a: array[0..15] of Integer; i,z,x: Integer; begin for i:=0 to 14 do begin a[i]:=random(50); writeln('Число ',i+1,': ',a[i]); end; z:=a[0];x:=a[14]; a[0]:=x;a[14]:=z; z:=a[6];x:=a[7]; a[6]:=x;a[7]:=z; for i:=0 to 14 do begin writeln('Число ',i+1,': ',a[i]); end; end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,0,50); a.Println;
Swap(a[0],a[14]); Swap(a[6],a[7]); a.Println
end.
Пример
15 47 4 20 36 42 27 40 2 45 26 26 48 25 17
17 47 4 20 36 42 40 27 2 45 26 26 48 25 15
i,z,x: Integer;
begin
for i:=0 to 14 do
begin
a[i]:=random(50);
writeln('Число ',i+1,': ',a[i]);
end;
z:=a[0];x:=a[14];
a[0]:=x;a[14]:=z;
z:=a[6];x:=a[7];
a[6]:=x;a[7]:=z;
for i:=0 to 14 do
begin
writeln('Число ',i+1,': ',a[i]);
end;
end.