Помогите, пожалуйста, решить задачу (в формате Паскаля)
Answers & Comments
TemaZpro
Program zad1; const N = 6; var a: array[1..N] of integer; i: byte; b: integer; begin for i:=1 to N do read(a[i]); for i:=1 to N div 2 do begin b := a[i]; a[i] := a[N-i+1]; a[N-i+1] := b; end; for i:=1 to N do write(a[i],' '); writeln; end.
1 votes Thanks 1
TemaZpro
Если введёшь цифры (через пробел) от 1 до 6, то получишь реверс
Answers & Comments
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.