Изменить порядок следования элементов в массиве на обратный - Turbo Pascal (33844)

Формулировка задачи:

Изменить порядок следования элементов в массиве на обратный.

Код к задаче: «Изменить порядок следования элементов в массиве на обратный - Turbo Pascal (33844)»

textual
const n=15;
var a,b:array[1..n] of integer;
i,j:byte;
begin
for i:=1 to n do
readln(a[i]);
for i:=n downto 1 do
begin
 j:=j+1; b[j]:=a[i];
end;
for i:=1 to n do
 write(b[i]:5);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.286 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы