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.
1-камень
2-Море, остров,
3-волна, шторм, океан.
Микрофон - ввод информации , а колонки - вывод
Компьютер
------------------