• В одномерном целочисленном массиве определить среднее арифмитическое максимального и минимального чисел

Ответы 1

  • program massiv;var i,n,max,sr,min:longint;a:array[1..1000]of longint;beginread(n);for i:=1 to n doread(a[i]);max:=-999999;min:=999999;for i:=1 to n dobeginif a[i]>max then max:=a[i];if a[i]<min then max:=a[i];end;sr:=(max+min)div 2;writeln(sr);end.

    • Автор:

      janiah
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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