В паскале сформирвать массив из десяти элементов…

Question

В паскале сформирвать массив из десяти элементов, заполнить его с помощью генератора случайных чисел и сделать так, чтобы в нем поменялись местами 1 и 2, 3 и 4 значение и так далее. Нужно написать программу.

Answer 1

58

pion2

24 марта 2023

Program Task; 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: