var a,b: array[1..n] of integer; i, s, imax, smax: integer;
begin Randomize; Writeln('Элементы массива A'); for i := 1 to n do begin a[i] := Random(30)+5; Write(a[i]:3); end; Writeln; smax:=0; imax:=0; Writeln('Элементы массива B'); for i := 1 to n do begin b[i] := Random(30)+5; Write(b[i]:3); s:=a[i]*b[i]; if smax<s then begin imax:=i; smax:=s end end; Writeln; Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ', a[imax],'x',b[imax],'=',smax) end.
Тестовое решение: Элементы массива A 31 30 34 9 12 11 11 24 34 29 Элементы массива B 18 16 15 16 19 22 24 22 25 5 Прямоугольник номер 9 имеет максимальную площадь 34x25=850
var a,b: array[1..n] of integer; i, s, imax, smax: integer;
begin Randomize; Writeln('Элементы массива A'); for i := 1 to n do begin a[i] := Random(30)+5; Write(a[i]:3); end; Writeln; smax:=0; imax:=0; Writeln('Элементы массива B'); for i := 1 to n do begin b[i] := Random(30)+5; Write(b[i]:3); s:=a[i]*b[i]; if smax<s then begin imax:=i; smax:=s end end; Writeln; Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ', a[imax],'x',b[imax],'=',smax) end.
Тестовое решение: Элементы массива A 31 30 34 9 12 11 11 24 34 29 Элементы массива B 18 16 15 16 19 22 24 22 25 5 Прямоугольник номер 9 имеет максимальную площадь 34x25=850
n = 10;
var
a,b: array[1..n] of integer;
i, s, imax, smax: integer;
begin
Randomize;
Writeln('Элементы массива A');
for i := 1 to n do
begin
a[i] := Random(30)+5;
Write(a[i]:3);
end;
Writeln;
smax:=0; imax:=0;
Writeln('Элементы массива B');
for i := 1 to n do
begin
b[i] := Random(30)+5;
Write(b[i]:3);
s:=a[i]*b[i];
if smax<s then begin imax:=i; smax:=s end
end;
Writeln;
Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
a[imax],'x',b[imax],'=',smax)
end.
Тестовое решение:
Элементы массива A
31 30 34 9 12 11 11 24 34 29
Элементы массива B
18 16 15 16 19 22 24 22 25 5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850
n = 10;
var
a,b: array[1..n] of integer;
i, s, imax, smax: integer;
begin
Randomize;
Writeln('Элементы массива A');
for i := 1 to n do
begin
a[i] := Random(30)+5;
Write(a[i]:3);
end;
Writeln;
smax:=0; imax:=0;
Writeln('Элементы массива B');
for i := 1 to n do
begin
b[i] := Random(30)+5;
Write(b[i]:3);
s:=a[i]*b[i];
if smax<s then begin imax:=i; smax:=s end
end;
Writeln;
Writeln('Прямоугольник номер ',imax,' имеет максимальную площадь ',
a[imax],'x',b[imax],'=',smax)
end.
Тестовое решение:
Элементы массива A
31 30 34 9 12 11 11 24 34 29
Элементы массива B
18 16 15 16 19 22 24 22 25 5
Прямоугольник номер 9 имеет максимальную площадь 34x25=850