Перемножить попарно значения элементов, взятых из обоих массивов - Pascal ABC

Формулировка задачи:

помогите, пожалуйста Даны 2 массива случайных чисел А и В размерности k, произвольно взятые на отрезке (-10;255). Перемножить попарно значения элементов, взятых из обоих массивов (a(1)*b(1); a(2)*b(2); .... Выделить ту пару, значение произведения которой максимально. Вывести значение этой пары и соответствующие индексы.

Код к задаче: «Перемножить попарно значения элементов, взятых из обоих массивов - Pascal ABC»

textual
const nmax=100;
type mas=array[1..nmax] of integer;
var n:byte;
procedure vvod(var a:mas; c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=-10+random(266);
  write(a[i]:4);
 end;
writeln;
end;
 
var a,b,c:mas;
    i,imx:byte;
    max:integer;
begin
randomize;
repeat
write('Размер массивов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
vvod(a,'A');
vvod(b,'B');
max:=a[1]*b[1];
imx:=1;
for i:=2 to n do
if a[i]*b[i]>max then
 begin
  max:=a[i]*b[i];
  imx:=i;
 end;
write('Максимальное произведение=',max,' индексы=',imx);
end.

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ