Решить по ! делать именно на паскале! надо ! за сегодня ! в группе n учеников выполняли практикум по икт ( n задаётся в разделе const). массив оценок ozenka формируйте случайными числами из интервала от 0 до 5. выведите на экран № ученика и оценку так: № ученика оценка 1 5 2 2 3 4 и т.д найти и вывести количество учащихся получивших оценку не ниже 4. найти средний по группе!

В данной программе предполагается что массив целочисленный 

Program Massiv;

Uses Crt;

var a:array[1..10] of integer;

       temp,max,i:integer;

begin

    clrscr; 

    for i:=1 to 10 do

          begin

              write('Введите  ',i, 'элемент массива: ' );

              readln(a[i]); 

         end;

   writeln;

 write('Исходный массив: ');

max:=a[1]; 

 for i:=1 to 10 do

     begin

         write(a[i])

          write('  ');

        if (a[i]>max) tnen max:=a[i];    

     end; 

 temp:=a[6];

 a[6]:=a[9];

a[9]:=temp;

 writeln;

  write('Массив после обмена: '); 

for i:=1 to 10 do

     begin

         write(a[i])

          write('  ');  

     end;

writeln;  

writeln('Максимальный элемент массива: ',max);

      readkey;

 end.

1)

var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.

2)

var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.

3)

var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.