Паскаль
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:
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.