Question

1. Задайте массив на 15 элементов, заполните его случайными целыми числами из интервала от-50 до 50 и выведите его на экран в виде: а[1] = -24
a[2] = 7
...
f[15] = 45

2. Задайте три массива на 20 элементов, заполните первые два случайными целыми числами из интервала от-10 до 10, а третий массив заполните суммами соответствующих элементов первых двух массивом. Выведите эти массивы в строчку друг под другом:

3 5 -4 9 -3
2 -7 9 0 8
5 -2 5 9 5

3*. Задайте массив на 20 элементов заполненый по следующему правилу: два первых элемента равны 1, а каждый следующий равен сумме двух предыдущих). Вывести его в строчку.

Answer 1

Задача 1:

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

i:integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-101)+50;

       writeln('a[',i,']=', a[i]);

   end;

end.

Задача 2:

var i:integer;

a:array[1..20] of integer;

b:array[1..20] of integer;

c:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-21)+10;

       b[i]:=random(-21)+10;

       c[i]:=a[i]+b[i];

       write(a[i]:3, ' ');

   end;

   writeln();

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

   writeln();

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

end.

Задача 3 (ряд Фибоначчи):

var i:integer;

a:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       if i<=2 then a[i]:=1

       else begin

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

       end;

       write(a[i], ' ');

   end;

end.