Переставить элементы массива по образцу

@Nastik23 · Регистрация: 25.09.2012

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

Даны действительные числа:

@Das Gespenst · 29.10.2012, 17:35

Pascal

program z;
uses crt;
var i,n,j:byte; r:real;
a:array [1..30] of real;
begin
     clrscr;
     writeln('Êîë-âî ýëåìåíòîâ ìàññèâà (n/2 â 1..15): ');
     repeat
           readln(n);
     until (n>0) and (n<=15);
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to 2*n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     clrscr;
     writeln('Êîë-âî ýëåìåíòîâ ìàññèâà: ',2*n);
     write('Èñõîäíûé ìàññèâ: ');
     for i:=1 to 2*n do
         write(a[i],' ');
     writeln;
     j:=2;
     repeat
           r:=a[2*n];
           for i:=2*n downto j+1 do
               a[i]:=a[i-1];
           a[j]:=r;
           j:=j+2;
     until j=2*n;
     writeln('Îáðàáîòàííûé ìàññèâ: ');
     for i:=1 to 2*n do
         write(a[i],' ');
end.

@Nastik23 0 / 0 / 0 Регистрация: 25.09.2012 Сообщений: 54
		1
	Переставить элементы массива по образцу 29.10.2012, 14:23. Показов 1133. Ответов 1 Метки нет (Все метки) Даны действительные числа: Миниатюры 0

	29.10.2012, 17:35

Опции темы

Переставить элементы массива по образцу

Решение