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

Question

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

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

Comments

Вон товарищ уже пишет ответ

---

Не, нафик вспоминать Делфи :Р

---

Ребятушки, выручайте) очень нужна помощь

---

Че это где тоДелфи учат?)))

---

Вроде устаревший он

---

устаревший, но программы заставляют в нем писать(

---

Это да, но если учить школьников С++, то они будут страдать. Плюс Делфи многое прощает.

---

нас не в школе а в универе заставлzют на нем писать :D

---

Дельфи - это платный продукт. Pabc.NET наше все!

---

D:

Answer 1

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]   If m[i]>m[max] then max:=i;
   Writeln(m[i]);
  end;
  Writeln('Ср.арифм. макс.и мин. элементов: ', (m[max]+m[min])/2);
  Writeln('Ср.арифм. всех элементов: ', sum/10);
end.

Comments

Спасибо большое) Вы меня спасли)