Составьте программу подсчета числа элемента одновременного массива, превосходящих среднее арифметическое элементов данного массива.

Программа написана на PascalABC.NET

// Ниже код:

program element;
var a: array[1..1000] of real;    i, j, c: integer;    b: real;    begin  writeln('Введите число элементов: ');  read(j);    for i:= 1 to j do    begin      read(a[i]);      b:= b + a[i];    end;    b:= b / j;    for i:= 1 to j do    if a[i] > b then inc(c);    writeln;  write('ответ: ', c);end.

print("Введіть вагу ручки")

pen = input()

print("Введіть вагу олівця")

pencil = input()

print("Введіть вагу зошита")

copybook = input()

if pen > pencil and pencil > copybook:

   print("Ручка -", pen, "| олівець -", pencil, "| зошит -", copybook)

elif pen > pencil and copybook > pencil:

   print("Ручка -", pen, "| зошит -", copybook, "| олівець -", pencil)

elif pencil > copybook and copybook > pen:

   print("Олівець -", pencil, "| зошит -", copybook, "| ручка -", pen)

elif pencil > pen and pen > copybook:

   print("Олівець -", pencil, "| ручка -", pen, "| зошит -", copybook)

elif copybook > pen and pen > pencil:

   print("Зошит -", copybook, "| ручка -", pen, "Олівець -", pencil)

else:

   print("Зошит -", copybook, "| олівець -", pencil, "| Ручка -", pen)

var a, i: integer;

begin

 a := 1;

 for i := 1 to 15 do

 begin

   writeln('Корень числа: ',a, ' , равен: ', sqrt(a):5:2);

   a := a + i;

 end;

end.

Текстовый вывод:

Корень числа: 1 , равен:  1.00

Корень числа: 2 , равен:  1.41

Корень числа: 4 , равен:  2.00

Корень числа: 7 , равен:  2.65

Корень числа: 11 , равен:  3.32

Корень числа: 16 , равен:  4.00

Корень числа: 22 , равен:  4.69

Корень числа: 29 , равен:  5.39

Корень числа: 37 , равен:  6.08

Корень числа: 46 , равен:  6.78

Корень числа: 56 , равен:  7.48

Корень числа: 67 , равен:  8.19

Корень числа: 79 , равен:  8.89

Корень числа: 92 , равен:  9.59

Корень числа: 106 , равен: 10.30