Перемножить попарно значения элементов, взятых из обоих массивов - Pascal ABC
Формулировка задачи:
помогите, пожалуйста
Даны 2 массива случайных чисел А и В размерности k, произвольно взятые на отрезке (-10;255). Перемножить попарно значения элементов, взятых из обоих массивов (a(1)*b(1); a(2)*b(2); .... Выделить ту пару, значение произведения которой максимально. Вывести значение этой пары и соответствующие индексы.
Решение задачи: «Перемножить попарно значения элементов, взятых из обоих массивов»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д