паскаль 9 класс

Ответ от Миоко Таканава[гуру]
1) program task1; const n = 9; {кол-во элементов массива} var a:array[ 1..n] of integer; i:integer; begin randomize; writeln(\'Исходный массив: \'); for i := 1 to n do begin a[ i]:=random(21)-10; write(a[ i]:4); end; writeln; writeln(\'Обработанный массив: \'); for i := 1 to n do begin a[ i] := a[ i]-5; write(a[ i]:4); end; readln end. 2) program task2; const n = 20; {кол-во чисел Фибоначчи} var a:array[ 1..n] of integer; i:integer; begin writeln(\'Последовательность Фибоначчи: \'); for i := 1 to n do begin if i < 3 then a[ i] := i-1 else a[ i] := a[ i-2] + a[ i-1]; writeln(i:2,\': \',a[ i]); end; readln end.