Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.