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

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

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

Kodzaev · 29.03.2012, 22:13

Pascal

Uses crt;
Var
a: Array[1..100] of Integer;
n,i: Integer;
Begin
Writeln('Введите N: '); Readln(n);
Writeln('Исходный массив:');
For i:=1 to n do
begin
 a[i]:=Random(100);
 Write(a[i]:5);
end;
Writeln;
Writeln('Полученный массив: ');;
For i:=1 to n do
begin
Inc(i);
Write(a[i]:5);
end;
Readln
End.

@Alesia · 29.03.2012, 22:19 **[ТС]**

а можно без inc решить

Kodzaev · 29.03.2012, 22:24

Вместо Inc(i) поставьте i:=i+1;

@Alesia · 29.03.2012, 22:46 **[ТС]**

так она работает неправильно....нужно только четные выводить, а выводит все

@Dani · 29.03.2012, 22:48

людиии.... изменять переменную внутри цикла for - очень неприлично! да и не всякий компилер пропустит это! уж лучше while возьмите.

@Alesia · 29.03.2012, 22:50 **[ТС]**

так как ее правильно решить

@Dani · 29.03.2012, 22:51

Pascal

var a: array [1..100] of longint;
    i, n: longint;
begin
read (n);
for i:= 1 to n do
 read (a[i]);
 
i:= 0;
 
while i<n do
 begin
  i:= i + 2;
  write (a[i],' ');
 end;
 
end.

@Alesia · 29.03.2012, 23:07 **[ТС]**

а можно по-подробнее расписать

@Dani · 29.03.2012, 23:22

Alesia, что это значит? комментарии поставить?

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

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
	29.03.2012, 22:19 [ТС]	3
	а можно без inc решить 0

Kodzaev 3028 / 1914 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	29.03.2012, 22:24	4
	Вместо Inc(i) поставьте i:=i+1; 1

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
	29.03.2012, 22:46 [ТС]	5
	так она работает неправильно....нужно только четные выводить, а выводит все 0

@Dani 1404 / 646 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	29.03.2012, 22:48	6
	людиии.... изменять переменную внутри цикла for - очень неприлично! да и не всякий компилер пропустит это! уж лучше while возьмите. 1

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
	29.03.2012, 22:50 [ТС]	7
	так как ее правильно решить 0

@Alesia 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 70
	29.03.2012, 23:07 [ТС]	9
	а можно по-подробнее расписать 0

@Dani 1404 / 646 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	29.03.2012, 23:22	10
	Alesia, что это значит? комментарии поставить? 0

Опции темы