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.

program z1;

var a: array[0..14] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 14 do a[i] := Random(101) - 50;

   for i:=0 to 14 do write(a[i], ' ');

end.

Задание 2.

program z2;

var a, b, c: array[0..19] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 19 do begin

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

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

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

   end;

   for i:=0 to 19 do write(a[i], ' ');

   writeln();

   for i:=0 to 19 do write(b[i], ' ');

   writeln();

   for i:=0 to 19 do write(c[i], ' ');

end.

Задание 3.

program z3;

var a: array[0..19] of integer;

i: integer;

begin

   a[0] := 1;

   a[1] := 1;

   for i:=2 to 19 do begin

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

   end;

   for i:=0 to 19 do write(a[i], ' ');

end.