Перестановка елементов масива

@Tierra · Регистрация: 22.03.2010

Здраствуйте.....случилась такая ситуацыя что я не понимаю как зделать это на Delphi....
у меня есть примерно на паскале зделал....но как в Delphi перевести чтото неполучается
Вот условие....
Заданы действительные числа y1, y2, ..., y20 . Получить y1, y11, y3, y13, . . ., y9, y19 .
Заранее благодарен.

Pascal

uses crt;
var y:array[1..20] of real;
i:byte; p:real;
begin
clrscr;
randomize;
for i:=1 to 20 do y[i]:=random;
writeln('Pochatkovuy Mas:');
for i:=1 to 20 do write(i,')',y[i]:5:2,'':2);
writeln; writeln;
i:=2;
repeat
y[i]:=y[9+i];
i:=i+2;
until i>10;
writeln('Novui Mas:');
for i:=1 to 10 do write(i,')',y[i]:6:2,'':2);
readkey;
end.

@Джуниор · 02.04.2010, 00:29

Алгоритм твой... кое что пришлось переделать в связи с особенностями языка Delphi...

@Tierra · 02.04.2010, 00:32 **[ТС]**

пасипки =)

@Tierra 0 / 0 / 0 Регистрация: 22.03.2010 Сообщений: 17
	02.04.2010, 00:32 [ТС]	3
	пасипки =) 0

Опции темы