Одномерный массив - Паскаль, Turbo Pascal, PascalABC.NET

solnze.90 · 01.04.2011, 10:49

Даны действительные числа от а1 до а20.Получить а1,а11,а3,а13,...,а9,а19.

Serge_Bliznykov · 01.04.2011, 11:15

Код:

i := 1;
while ((i+10)<=20) do begin
  Write(a[i], ' ', a[i+10],' ');
  i := i + 2;
end;
WriteLn;

Stilet · 01.04.2011, 13:09

Цитата:

while ((i+10)<=20) do begin

А зачем?

Код:

while (i<10) do begin

вполне хватит

01.04.2011, 10:49	#1
solnze.90 Пользователь Регистрация: 27.12.2010 Сообщений: 10	Одномерный массив Даны действительные числа от а1 до а20.Получить а1,а11,а3,а13,...,а9,а19.

01.04.2011, 11:15	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Код: `i := 1; while ((i+10)<=20) do begin Write(a[i], ' ', a[i+10],' '); i := i + 2; end; WriteLn;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одномерный массив , двухмерный массив	Woxx	Паскаль, Turbo Pascal, PascalABC.NET	0	10.09.2010 09:28
одномерный массив...	Ole4ka	Помощь студентам	5	17.05.2010 22:01
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P.	Marishkaa	Помощь студентам	2	12.01.2010 16:54
Двумерный массив, одномерный массив.	Branbal	Помощь студентам	14	18.11.2009 12:40
Одномерный массив	Марина_marina	Паскаль, Turbo Pascal, PascalABC.NET	0	18.10.2009 20:57