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

@Alesia · Регистрация: 15.03.2012

Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке возрастания номеров А2, А4,А6,…А N.Условный оператор не использоватью

@temich-92 · 31.03.2012, 14:07

Pascal

uses crt;
 
const
   nmax = 20;
 
var
   i, counter, count: integer;
   arr: array [1..nmax] of integer;
 
begin
     clrscr;
     randomize;
     write('BBegu n oT 1 go ',nmax,': ');
     repeat
           readln(count);
     until count in [1..nmax];
 
     for i := 1 to count do begin
         arr[i] := random(10);
         write(arr[i],' ');
     end;
 
     counter := 2;
     writeln;
     writeln;
 
     while (counter <= count) do begin
           writeln(counter,' - ',arr[counter]);
           counter := counter + 2;
     end;
     readln;
end.

@Alesia · 31.03.2012, 15:08 **[ТС]**

а по проще .мы такое еще не проходили

@Puporev · 31.03.2012, 18:18

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

мы такое еще не проходили

А что конкретно не проходили? Здесь нет ничего особенного.

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
		1
	Дан массив. Вывести его элементы с четными номерами в порядке возрастания номеров 31.03.2012, 12:50. Показов 1334. Ответов 3 Метки нет (Все метки) Дан масив А размера N(N-четное число). Вывести его элементы с четными номерами в порядке возрастания номеров А2, А4,А6,…А N.Условный оператор не использоватью __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
	31.03.2012, 15:08 [ТС]	3
	а по проще .мы такое еще не проходили 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	31.03.2012, 18:18	4
	Сообщение от Alesia мы такое еще не проходили А что конкретно не проходили? Здесь нет ничего особенного. 0

Опции темы