Решаем задачи Абрамян на Паскале. Array71

Array71. Дан массив размера $$N$$. Поменять порядок его элементов на обратный.

Решение:

program Array71;
var
  a : array[1..10] of integer;
  N,i:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  while i<=N/2 do
   begin
    a[i]:=a[i]+a[N-i+1];
    a[N-i+1]:=a[i]-a[N-i+1];
    a[i]:=a[i]-a[N-i+1];
    i:=i+1;
   end;

  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array71;

var

a : array[1..10] of integer;

N,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

while i<=N/2 do

begin

a[i]:=a[i]+a[N-i+1];

a[N-i+1]:=a[i]-a[N-i+1];

a[i]:=a[i]-a[N-i+1];

i:=i+1;

end;

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Bronislav

03.08.2018 в 23:33

program array_71;//pascalABC.net begin var a := Arr(1,2,3,4,5,6,7,8,9,0); a := a[::-1]; a.Println;//0 9 8 7 6 5 4 3 2 1 end.

1
2
3
4
5
6
7
8
9

program array_71;//pascalABC.net

begin
  var a := Arr(1,2,3,4,5,6,7,8,9,0);

  a := a[::-1];

  a.Println;//0 9 8 7 6 5 4 3 2 1
end.

Ответить

Решаем задачи Абрамян на Паскале. Array71

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ