Напечатать элементы массива в прямом и обратном порядке

@blocker147 · Регистрация: 14.12.2015

Author24 — интернет-сервис помощи студентам

Задача:
Сформировать одномерный массив из N элементов, где элементы
массива- целые случайные числа в пределах от 1 до 45. Напечатать
элементы массива в прямом и обратном порядке.

@shilko2013 · 21.04.2016, 21:47

Pascal

const n=30;
var a:array [1..n] of integer;
i,j,k:integer;
BEGIN
For i:=1 to n do
a[i]:=Random (45)+1;
For i:=1 to n do
  For j:=1 to n-i do
  IF a[j+1]<a[j] THEN begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
For i:=1 to n do
Write (a[i], ' ');
Writeln;
For i:=n downto 1 do
Write (a[i], ' ');
END.

@JuriiMW · 22.04.2016, 05:03

Pascal

begin
  var n := ReadLnInteger('n =');
  var a := ArrRandomInteger(n, 1, 45);
  foreach var v in a do Print(v); WriteLn;
  foreach var v in a.Reverse do Print(v); WriteLn;
end.

Напечатать элементы массива в прямом и обратном порядке

Решение

Решение

@blocker147 0 / 0 / 5 Регистрация: 14.12.2015 Сообщений: 186
		1
	Напечатать элементы массива в прямом и обратном порядке 21.04.2016, 18:52. Показов 1368. Ответов 2 Метки нет (Все метки) Задача: Сформировать одномерный массив из N элементов, где элементы массива- целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке. 0

	22.04.2016, 05:03