Автор Ваня bdhdfhdfh задал вопрос в разделе Другие языки и технологии
Информатика 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.
1) var mas:array [ 1..9 ] of integer; i:integer; begin writeln('Введите элементы массива'); for i:=1 to 9 do begin readln(mas[ i ]); mas[ i ]:=mas[ i ]-5; end; writeln('результат'); for i:=1 to