• Помогите пожалуйста!!Умоляю! Нужно написать программу на языке паскаль

    Дан массив из 10 целых чисел. Определить, что больше: среднее арифметическое максимального и минимального элементов, или среднее арифметическое всех элементов массива.

Ответы 2

  • Спасибо большое) Вы меня спасли)
  • Var m : array[1..10] of Integer;max,min,sum,i : Integer;Begin  min:=1; max:=1; sum:=0;  For i:=1 to 10 do  Begin   m[i]:=Random(100);   sum:=sum+m[i];   If m[i]<m[min] then min:=i;   If m[i]>m[max] then max:=i;   Writeln(m[i]);  end;  Writeln('Ср.арифм. макс.и мин. элементов: ', (m[max]+m[min])/2);  Writeln('Ср.арифм. всех элементов: ', sum/10);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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