Записать подряд в массив В элементы массива (а1,а2..а30), имеющие четные индексы

@Anutik_ · Регистрация: 17.06.2010

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

записать подряд в массив В элементы массива(а1,а2..а30)-имеющие четные индексы

@ilys · 23.06.2010, 13:27

Pascal

program _;
const
n=30;
var
b:array[1..n] of byte; i:integer;
begin
for i:=1 to n do
begin
readln(b[i]);
end;
for i:=1 to n do
if (i mod 2)=0 then write(b[i],'  ');
end.

@Anutik_ 0 / 0 / 0 Регистрация: 17.06.2010 Сообщений: 4
		1
	Записать подряд в массив В элементы массива (а1,а2..а30), имеющие четные индексы 23.06.2010, 11:01. Показов 1639. Ответов 1 Метки нет (Все метки) записать подряд в массив В элементы массива(а1,а2..а30)-имеющие четные индексы 0

Опции темы

Записать подряд в массив В элементы массива (а1,а2..а30), имеющие четные индексы

Решение