Паскаль абс нет 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, а каждый следующий равен сумме двух предыдущих). Вывести его в строчку.
Задание 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.