uses
Sysutils;
const
n=7;
m=5;
type
a = array[1..n] of integer;
b = array[1..m] of integer;
procedure Input(var m1 : a; VAR m2 : b);
var
i : byte;
begin
for i := 1 to n do begin
writeln;
write('a[',i,']= ');
readln(m1[i]);
end;
writeln;
begin
for i := 1 to m do begin
writeln;
write('b[',i,']= ');
readln(m2[i]);
end;
writeln;
end; end;
procedure InputRnd(var m1 : a; VAR m2 : b);
const rnd = 100;
var
i: byte;
begin
randomize;
for i := 1 to n do
m1[i] := random(rnd);
randomize;
for i:=1 to m do
m2[i] := random(rnd);
writeln;
writeln(' Massivi A , B ');
writeln;
end;
procedure Print(m1 : a; m2 : b;Var p : integer);
var
i : byte;
begin
writeln;
writeln( ' Massiv A ');
for i := 1 to n do begin
writeln;
write(m1[i]:3,' ');
end;
writeln;
readln;
writeln;
writeln( ' Massiv B ');
for i := 1 to m do begin
writeln;
write(m2[i]:3,' ');
end;
writeln;
readln;
writeln;
writeln(' P = ', p:3);
writeln;
end;
procedure Reform(m1 : a; m2 : b; var p: integer);
var
i : byte;
k:integer;
begin
p:=1;
if m1[1]>m2[1] then
writeln( ' a[1]>b[1] P = proizvedenie a[i] ');
if m1[1]>m2[1] then
for i:=1 to n do p:=p*m1[i]
else if m1[1]<m2[1] then
writeln( ' a[1]<b[1] P = proizvedenie b[i] ');
if m1[1]<m2[1] then
for i:=1 to m do p:=p*m2[i]
else if m1[1]=m2[1] then begin
writeln( ' a[1]=b[1] P = proizvedenie (a[i]+b[i]) ');
k:=n;
if m<k then k:=m;
for i:=1 to k do p:=p*(m1[i]+m2[i]);
end;
writeln;
writeln('Sdelano. Podtverdit i vivesti...');
readln;
end;
var
m1 : a;
m2 : b;
p:integer;
z : byte;
begin
repeat
writeln('1 - Input ');
writeln('2 - Input RND');
writeln('3 - Print');
writeln('4 - Reform');
writeln('5 - Quit');
readln(z);
case z of
1 : Input(m1, m2);
2 : InputRnd(m1, m2);
3 : Print(m1, m2,p);
4 : Reform(m1, m2, p);
end;
until z=5;
end.
будьте так добры.........=)))..........Заранее спасибо!