Помогите пожалуйста)
1)Оценки в соревнованиях по фигурному катанию выставляются 9 судьями.Потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок.Составьте программу,которая определяет зачетную оценку спортсмена.Оценки судей ввести с клавиатуры(целые числа от 1 до 6).
2)Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит максимальный элемент массива среди элементов с четными индексами.
3)Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди элементов с нечетными индексами.
4)Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве.
5)Составьте программу,которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива.

здесь только 3 задачи.

4.vara:array[0..9] of integer;i,y,s,max:integer;beginrandomize();for i:=0 to 9 dobeginy:= random(10);a[i]:= y;end;

for i:=0 to 9 do write(a[i],' ');writeln(' - десять выпадковых чисел');max:=a[0];for i:=1 to 9 doif a[i]<max then max:=a[i];writeln(max, ' - максимальное число.');s:=0; // сума чисел, принимают такие значенияfor i:=0 to 9 doif a[i]=max then s:=s+1;writeln('Встречается ',s,' раз.');end.

5.var a:array[1..10]of integer;i,min,max:integer;beginmin:=10;max:=0;for i:=1 to 10 do a[i]:=random(11);for i:=1 to 10 do beginif a[i]>max then max:=a[i];if a[i]<min then min:=a[i];end;writeln(min+max);end.

1.var   max,min,i:integer;   b:real;   a:array[1..9]of integer;beginfor i:=1 to 9 do  begin  while (a[i]<1) or (a[i]>6) do    begin    write(i,' оценка: ');    readln(a[i]);    end;  if i=1 then    begin    max:=a[1];    min:=a[1];    end;  if a[i]>max then max:=a[i];  if a[i]<min then min:=a[i];  b:=b+a[i];  end;b:=(b-min-max)/7;writeln('Зачетная оценка: ',b);end. 2. #include <stdafx.h> #include <stdio.h> #include <math.h> #include <stdlib.h> //for rand; int main() { int i, n,M[1];  printf("Vvedit N:");   scanf("%d",&n); for (i = 0; i < n; i++)  {   M[i] = rand()%10;     }for (i = 0; i < n; i++)  {      printf("Array[%d] = %d", i, M[i]);  }           scanf("%d"); return 0; }3. var

a:array[0..9] of integer;i,y,min:integer;beginrandomize();for i:=0 to 9 dobeginy:= random(10);a[i]:= y;end;for i:=0 to 9 do write(a[i],' ');writeln(' - десять випадковых чисел');min:=a[0];for i:=1 to 9 doif a[i]<min then min:=a[i];writeln(min, ' - минимальне число.');

end.