Регистрация
elag
06.08.2022 17:52
Информатика
Есть ответ 👍

Напишите, что будет выведено на экран в результате выполнения программы

235
397
Посмотреть ответы 1

Ответы на вопрос:

Dasha555511111
Dasha555511111
4,8(27 оценок)

получилось довольно криво, но вот

var a : array [1..255] of integer;

n, i: integer;

begin

read(n);

for i : = 1 to n do

  read(a[i]);

for i : = 1 to trunc(n / 2) do begin

  a[i] += a[n - i + 1];

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

  a[i] -= a[n - i + 1];

end;

for i : = 1 to n do

  write(a[i], ' ');

end.

Популярно: Информатика