Const
n=15; { длина массива }
type
tm=array[1..n] of integer;
var
i:byte;
a,b,c:tm;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(101-50);
b[i]:=random(101-50);
c[i]:=a[i]*b[i];
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(b[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(c[i],' ')
end;
Writeln
end.
За 5 мин=1*2+1*2+1*2+1*2+1*2=10
За 7 мин=1*2+1*2+1*2+1*2+1*2+1*2+1*2=14
За 9 мин=18
И т.д.
1.Взять ведро налить воды.
2.Вылить воду на огонь.
3.не Пугать животных