Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
Var a,b,i,n: integer;
begin
a := 1;
b := 1;
read(n);
for i := 2 to n do
begin
b := a + b;
a := b - a
end;
write(b)
end.
Ответ:
Таблица находится во вложениях
D
/ \
Игры. Мои документы
| |
Квесты 7 класс
| / \
Шерлок Холмс.exe Русский язык Математика
| |
Орфограммы.txt Домашнее задание .doc