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

@Павел1995 · Регистрация: 14.06.2013

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

Задан одномерный массив из n случайных целых чисел, значения которых заданы в диапазоне от -5 до 20. Количество элементов задает пользователь. Выписать элементы массива в два столбика в прямом и обратном порядке. Вывести на экран элементы, стоящие на нечетных местах в прямом массиве.

@ermolay · 24.06.2013, 19:39

Pascal

var
  i,n: integer;
  a: array[1..100] of integer;
begin
  write('Ââåäèòå ðàçìåð ìàññèâà n: ');
  readln(n);
  writeln('Ïðÿìîé ïîðÿäîê:');
  for i:=1 to n do
  begin
    a[i]:=random(26)-5;
    write(a[i]:4);
    if i mod 2=0 then writeln;
  end;
  writeln;
  writeln('Îáðàòíûé ïîðÿäîê:');
  for i:=1 to n do
  begin
    write(a[n-i+1]:4);
    if i mod 2=0 then writeln;
  end;
  writeln;
  writeln('Ýëåìåíòû ìàññèâ ñ íå÷åòíûìè íîìåðàìè:');
  for i:=1 to n do
    if odd(i) then write(a[i]:4);
end.

@Павел1995 · 24.06.2013, 21:06 **[ТС]**

Спасибо большое!

@Павел1995 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 21
		1
	Выписать элементы массива в два столбика в прямом и обратном порядке 24.06.2013, 15:46. Показов 2647. Ответов 2 Метки нет (Все метки) Задан одномерный массив из n случайных целых чисел, значения которых заданы в диапазоне от -5 до 20. Количество элементов задает пользователь. Выписать элементы массива в два столбика в прямом и обратном порядке. Вывести на экран элементы, стоящие на нечетных местах в прямом массиве. 0

@Павел1995 0 / 0 / 0 Регистрация: 14.06.2013 Сообщений: 21
	24.06.2013, 21:06 [ТС]	3
	Спасибо большое! 0

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

Решение