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.
Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
Разбивают на группы по три буквы, затем каждую группу разворачивают "задом наперед":
например:
красота
кра - сот - а
арк - тос - а
значит, чтоб "расшифровать" - делаем то же:
фнимроицая
фни - мро - ица - я
инф - орм - аци - я
Ура!)
Будет выведена последовательность цифр 123123123.
Во внешнем цикле задан троекратный повтор, во внутреннем - вывод j при изменении j от 1 до 3.