Pascal. нужна . решить в pascal (если нужна . решить в pascal (если решиш - проси что угодно, )вот - под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний ? известно , что - в классе учится 14 учеников, - сумма всех средних аттестата = 100.известно также , что первый ученик имел средний , который составляет 1/ 12 суммы всех средних . второй ученик - на 0, 15 % больше, чем первый ученик , но на 1, 75 % меньше , чем третий ученик . средние аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . четвертый ученика на конец года имел такой же , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные .какой средний на конец года получил каждый?

const nn=50; vara: array [1..nn,1..nn] of integer; i,j,m,n: integer; begin  write('введите n: ');   readln(n);   write('введите m: ');   readln(m);   for i: = 1 to n do      for j: = 1 to m do          readln(a[i,j]);   for i: = 1 to n do      for j: = 1 to m do          if a[i,j] mod 2 =0 then a[i,j]: =a[i,j] div 2;   for i: = 1 to n do  begin      for j: = 1 to m do          write(a[i,j],' ');       writeln;   end;   end.

1)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       s: =s+a[i];   end;   writeln('среднее арифметическое массива = ',s/n)  end.

2)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       if a[i] mod 2 =0 then s: =s+1;   end;   writeln('количество четных элементов = ',s)  end.

3)

const nn=50; vara: array [1..nn] of integer; i,n: integer; s: real; begin  write('введите количество элементов массива: ');   readln(n);   s: =0;   for i: = 1 to n do  begin      readln(a[i]);       if i mod 2 =1 then s: =s+a[i];   end;   writeln('cумма элементов с нечетными номерами = ',s)  end.