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

@Skillzz · Регистрация: 14.12.2011

Народ, надо срочно, помогите, пожалуйста!! Составьте программу!!

Дан массив А размера N(N - четное число).Вывести его элементы с четными номерами в порядке возрастания номеров: A2,A4,A6,...,An. Условный оператор не использовать.

@ThePoljaL · 14.12.2011, 20:09

Pascal

program chetn;
var
A:array [1..100] of integer;
N, i:integer;
begin
write('kol-vo elementov:');
readln(N);
writeln('elementy:');
for i:=1 to N do
read(A[i]);
writeln('chetnie elementy');
for i:=1 to N do
begin
i:=i+1;
write(A[i], ' ');
end;
readln;
readln;
end.

@Skillzz · 14.12.2011, 20:21 **[ТС]**

спасибо =)

@Cyborg Drone · 18.01.2018, 18:01

Программа содержит ошибку в строке 14: нельзя модифицировать параметр цикла внутри цикла.

Исправленный вариант программы, с контролем ввода и улучшенным интерфейсом:

Pascal

const
  m = 100;
 
var
  a: array[1..m] of integer;
  n, i: integer;
 
begin
  repeat
    write('Введите количество элементов, чётное число в диапазоне [2..', m, ']: ');
    readln(n)
  until (n in [2..m]) and not odd(n);
  writeln('Введите элементы:');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      readln(a[i])
    end;
  writeln('Элементы с чётными номерами:');
  for i := 1 to n div 2 do write(a[i * 2], ' ');
  readln
end.

@Skillzz 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 4
		1
	Вывести элементы массива с четными номерами в порядке возрастания номеров 14.12.2011, 19:11. Показов 9394. Ответов 3 Метки нет (Все метки) Народ, надо срочно, помогите, пожалуйста!! Составьте программу!! Дан массив А размера N(N - четное число).Вывести его элементы с четными номерами в порядке возрастания номеров: A2,A4,A6,...,An. Условный оператор не использовать. 0

@Skillzz 0 / 0 / 0 Регистрация: 14.12.2011 Сообщений: 4
	14.12.2011, 20:21 [ТС]	3
	спасибо =) 0

Опции темы

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

Решение