Найти номера двух симметричных относительно центра массива элементов, произведение которых максимально - Pascal ABC

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

в паскаль найти номера двух симметричных относительно центра массива элементов, произведение которых максимально

Код к задаче: «Найти номера двух симметричных относительно центра массива элементов, произведение которых максимально - Pascal ABC»

textual
program z;
const n=10;
var a:array[1..n] of integer;
max,i,n1,n2:integer;
begin
randomize;
writeln('ГЊГ*Г±Г±ГЁГў');
for i:=1 to n do
 begin
  a[i]:=1+random(20);
  write(a[i]:3);
 end;
writeln;
n1:=1;
n2:=n;
max:=a[1]*a[n];
for i:=2 to n div 2 do
if a[i]*a[n-i+1] >max then
 begin
  max:=a[i]*a[n-i+1];
  n1:=i;
  n2:=n-i+1;
 end;
writeln('n1=',n1,'  n2=',n2);
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы