Помогите с заданиями по информатике 9 класс. 1) составьте программу заполнения массива а...

Question

Помогите с заданиями по информатике 9 класс. 1) составьте программу заполнения массива а 1..10 случайными целыми числами в диапозоне от N до M. Числа N и M введите с клавиатуры вывидите на экран полученный массив 2)Составьте программу заполнения массива a[1..10] следуюзими числами: Индекс элемента:1, 2, 3, 4, 5, 6, 7, 8, 9, 10 Значение элемента:3, 5, 7, 9, 11, 13, 15, 17, 19, 21 Закономерность: для каждого элемента массива его значение равно удвоенному индексу, увеличенному на 1. 3) Составьте программу заполнения массива a{1..10] числами Фибоначчи. В последовательности Фибоначчи значения первых двух элементов равны 1, а значение каждого последующего элемента, начиная с третьего, равно сумме двух предыдущих. Индекс элемента: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 Значение элемента: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55

Answer 1

const k=10;

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

n,m,i:integer;

begin

// 1

write('n, m: ');

readln(n,m);

for i:=1 to k do

begin

a[i]:=random(m-n+1)+n;

write(a[i],' ');

end;

writeln;

// 2

for i:=1 to k do

begin

a[i]:=2*i+1;

write(a[i],' ');

end;

writeln;

// 3

a[1]:=1; a[2]:=1;

write(a[1],' ',a[2],' ');

for i:=3 to k do

begin

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

write(a[i],' ');

end;

writeln;

end.

Пример:

n, m: 5 15

5 6 11 8 6 14 8 7 9 10  

3 5 7 9 11 13 15 17 19 21  

1 1 2 3 5 8 13 21 34 55