Question

заполнить массив из 10 целых чисел: 1) нулями 2)нулями кроме 1-го и последнего （первое и посление =1）3) кратное 5 4)числа фибоначи

Answer 1

var a,b,c,d:array [1..10] of integer;

i,x,y,z:integer;

begin

for i:=1 to 10 do

begin

a[i]:=0;

if (i=1) or (i=10) then b[i]:=1 else b[i]:=0;

c[i]:=i*5

end;

for i:=1 to 10 do write (a[i],' ');

writeln;

for i:=1 to 10 do write (b[i],' ');

writeln;

for i:=1 to 10 do write (c[i],' ');

writeln;

x:=0;

y:=1;

d[1]:=x;

d[2]:=y;

for i:=3 to 10 do begin

d[i]:=x+y;

z:=y;

y:=x+y;

x:=z

end;

for i:=1 to 10 do write (d[i],' ');

end.

Answer 2

1. Заполнение массива из 10 целых чисел нулями:

cssCopy code
arr = [0] * 10

2. Заполнение массива из 10 целых чисел нулями, кроме первого и последнего элемента, которые равны 1:

scssCopy code
arr = [0] * 8
arr.insert(0, 1)
arr.append(1)

3. Заполнение массива из 10 целых чисел кратными 5:

cssCopy code
arr = [i*5 for i in range(1, 11)]

4. Заполнение массива из 10 целых чисел числами Фибоначчи:

scssCopy code
arr = [0, 1]
for i in range(2, 10):
    arr.append(arr[i-1] + arr[i-2])

В результате получим массив [0, 1, 1, 2, 3, 5, 8, 13, 21, 34], где первые два элемента равны 0 и 1, а каждый следующий элемент является суммой двух предыдущих.