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

Ответы 3

  • спасибо
    • Автор:

      skyler
    • 6 лет назад
    • 0
  • 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.
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years