Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными индексами

SBCreed · Регистрация: 22.03.2011

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

Помогите пожалуйста решить задачу.
Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными индексами.

@APALoff · 13.12.2013, 10:03

Pascal

...
For i:=1 to n do
  If Odd(m[i]) and not Odd(i) then Writeln(m[i]);
...

@helpcoder · 13.12.2013, 11:11

Pascal

const
  n = 6; // размер массива
  offset = 2; // смещение
var
  m: array [1..n] of integer;
  i: integer;
begin
  // ввод массива с клавиатуры
  Writeln('Введите ',n, ' целых чисел:');
  for i:=1 to n do Read(m[i]);
  
  // Решение и вывод результата
  i:=2;
  Writeln;
  Writeln('Нечетные элементы с четными индексами: ');
  while i<=n do
  begin
    if (m[i] mod 2) <> 0 then
        Writeln('Элемент[индекс]: ', m[i],'[',i,']');
    i:=i+offset;
  end;
  
end.

SBCreed 3 / 3 / 3 Регистрация: 22.03.2011 Сообщений: 79
		1
	Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными индексами 12.12.2013, 21:54. Показов 3318. Ответов 2 Метки нет (Все метки) Помогите пожалуйста решить задачу. Ввести с клавиатуры массив из n чисел (n задать const) Вывести на экран нечётные элементы с чётными индексами. 0

	13.12.2013, 11:11

Опции темы