Question

Если хватит умаПаскаль. Определить наибольшее значение произведения А[i]*A[i-1]

Answer 1

Var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize;
max:=-1;
writeln('Array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
 end;
writeln;
writeln('Combinations:');
for i:=2 to 10 do
 begin;
   write(ar[i]*ar[i-1]:6);
   if ar[i]*ar[i-1]>max then max:=ar[i]*ar[i-1];
 end;
writeln;
writeln('Result:',max);
end.

Answer 2

Var
 a:array[0..5] of longint;
 b,c,d,e,i:longint;
begin
 b:=-maxlongint;
 for i:=1 to 5 do read(a[i]);
 for i:=1 to 5 do if a[i]*a[i-1]>b then b:=a[i]*a[i-1];
 writeln(b);
end.

Answer 3

Для определения наибольшего значения произведения A[i]*A[i-1] в массиве чисел A, нужно пройти по всем элементам массива и вычислить произведение каждой пары соседних элементов. Затем необходимо найти наибольшее из этих произведений.

Пример: Пусть у нас есть массив A = [3, 5, 2, 6, 4]. Тогда произведения соседних элементов будут: 3*5 = 15 5*2 = 10 2*6 = 12 6*4 = 24

Наибольшее из этих произведений равно 24, поэтому наибольшее значение произведения A[i]*A[i-1] в данном массиве равно 24.

Итак, чтобы найти наибольшее значение произведения A[i]*A[i-1], нужно пройти по всем элементам массива, вычислить произведения соседних элементов и выбрать наибольшее из них.