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

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


textual

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

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



Похожие ответы
  1. Дан числовой массив (его нужно ввести) поменять местами элементы массива попарно: 1-2,3-4,5-6, и тд.. Заранее спасибо за помощь

  1. Здравствуйте столкнулся с такой проблемой,что мне нужно дробную часть перемножить и отделить от целой 52 раза( или допустим еще больше/меньше), при этом записать в окно ввода только целую часть. Но проблема заключается в том, что или сиди с калькулятором и считай сам n раз или прописывай алгоритм в 52 раза, из-за того что цикл for не хочет работать с дробными числами. примерный код:

  1. Сколько натуральных четных чисел нужно перемножить, чтобы полученное произведение стало шестизначным? Подсчитайте при помощи цикла. Заранее спасибо!

  1. (!) Запрашивает ввод одномерного и двумерного массивов и перемножает по очереди все числа столбцов двумерного массива на все элементы одномерного массива.(т.е. певрый столбец на элементы одномерного массива,второй столбец на элементы одномерного массива)

  1. Дано число n. В интервале от 1 до n сложить все четные и перемножить все нечетные числа. И если не сложно то вот: Найти сумму квадратов четных чисел в интервале, заданном значениями переменных m и n.

  1. Написал прогу с помощью процедур, препод просит написать теперь с помощью функции. Помогите пожалуйста, не разберусь никак. Заданы двумерные массивы A, B, C одинаковых размерностей. Вычислить A*B, B*C, A*C. Найти максимальный элемент в каждой получившийся матрицы, помогите плз) Заранее спасибо.

  1. Перемножить матрицы A(4,3) и В(3,5). Элементы результирующей матрицы вычислить с помощью выражения.