Помогите с заданиями по информатике 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

Question

Информатика

Мухажира

19 декабря, 17:43

Помогите с заданиями по информатике 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

+4

Ответы (1)

Знаете ответ на вопрос?

Аршалуйе · 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