Помогите, пожалуйста, решить задачу (в формате Паскаля)
Приложения:
Ответы на вопрос
Ответил TemaZpro
0
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.
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.
Ответил TemaZpro
0
Если введёшь цифры (через пробел) от 1 до 6, то получишь реверс
Ответил friedstone
0
Спасибо огромное
Новые вопросы