В паскале сформирвать массив из десяти элементов, заполнить его с помощью генератора случайных чисел и сделать так, чтобы в нем поменялись местами 1 и 2, 3 и 4 значение и так далее. Нужно написать программу.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var a: Array [1..10] of Integer;
i, tmp: Integer;
Begin
Randomize;
WriteLn('Сформированный массив:');
For i := 1 To 10 Do
Begin
a[i] := Random(10);
Write(a[i], ' ');
End;
WriteLn;
For i := 1 To 5 Do
Begin
tmp := a[i * 2];
a[i * 2] := a[i * 2 - 1];
a[i * 2 - 1] := tmp;
End;
WriteLn('Измененный массив:');
For i := 1 To 10 Do
Write(a[i], ' ');
ReadLn;
End.