Массив. Вывести сначала элементы, стоящие на чётных местах, затем на нечётных

@Ioan508 · Регистрация: 08.04.2012

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

1)Заполнить одномерный массив вводом с клавиатуры. Определить, является ли элемент с номером n(n вводится с клавиатуры) положительным числом. Если да, то вывести его сумму с двумя соседними элементами, иначе вывести его произведение с последующим элементом.
2)Дан массив.Вывести на экран сначала его элементы, стоящие на чётных местах, затем на нечётных.
Пожалуйста помогите
буду очень благодарен.

@klast · 20.04.2012, 13:57

Сообщение от Ioan508

2)Дан массив.Вывести на экран сначала его элементы, стоящие на чётных местах, затем на нечётных.
Пожалуйста помогите

Pascal

var
  n, i: integer;
  a: array[1..1000] of integer;
 
begin
  write('Введите кол-во элементов массива: ');readln(n);
  for i := 1 to n do
  begin
    write('Введите ', i, ' элемент: '); readln(a[i]);
  end;
  for i := 1 to n do if i mod 2 = 0 then write(a[i], ' ');
  writeln;
  for i := 1 to n do if i mod 2 <> 0 then write(a[i], ' ');
end.

@Ioan508 · 26.04.2012, 00:23 **[ТС]**

спасибо :-)

@Ioan508 1 / 1 / 0 Регистрация: 08.04.2012 Сообщений: 35
		1
	Массив. Вывести сначала элементы, стоящие на чётных местах, затем на нечётных 20.04.2012, 01:09. Показов 15836. Ответов 2 Метки нет (Все метки) 1)Заполнить одномерный массив вводом с клавиатуры. Определить, является ли элемент с номером n(n вводится с клавиатуры) положительным числом. Если да, то вывести его сумму с двумя соседними элементами, иначе вывести его произведение с последующим элементом. 2)Дан массив.Вывести на экран сначала его элементы, стоящие на чётных местах, затем на нечётных. Пожалуйста помогите буду очень благодарен. 1

@Ioan508 1 / 1 / 0 Регистрация: 08.04.2012 Сообщений: 35
	26.04.2012, 00:23 [ТС]	3
	спасибо :-) 0

Массив. Вывести сначала элементы, стоящие на чётных местах, затем на нечётных

Решение