В Паскале не шарю, помогите решить задачу

[Vitruvian]

Подпрограммы.Составить программу на Паскале.
Дан одномерный массив, выполнить следующие действия:
-определить, сколько среди элементов чисел, равных к;
-определить, сколько процентов от общего числа элементов составляют положительные элементы;
-создать массив с помощью генератора случайных чисел и определить среднее арифметическое;
-определить колличество ненулевых элементов.

[Stilet]

определить, сколько среди элементов чисел, равных к;

Ну вот так:

var a:array[1..10] of byte; i,c:byte;
begin
 {Допустим массив ввели}
 for i:=1 to 10 do 
  if a[i]=k then inc(c);
 {Ну и С ввыводи}
end.

Для прикола во еще один экзотический вариант:

   var a:array[1..10] of byte; q,w,e:byte;
begin   e:=0;randomize;
 for q:=1 to 10 do begin 
  a[q]:=random(5);
  write(a[q]:5); 
  e:=e+byte(a[q]=3) {Тут кол-во считается трешек}
 end;
writeln;
write(e);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[NoHeart]

var a:array [1..1000] of integer;
    n,i,kolk,pol,nenol,k:integer;
    percent,sum:real;
begin
kolk:=0;
pol:=0;
writeln (' Введите кол-во элементов ');
readln(n);
writeln (' Введите число k');
readln(k);
  for i:=1 to n
   do begin
     a[i]:=random(10)-random(10);
     sum:=sum+a[i];
     if a[i]=k then inc(kolk);
     if a[i]>=0 then inc(pol);
     if a[i]<>0 then inc(nenol);
   end;
percent:=(pol/n)*100;
sum:=sum/n;
writeln (' Кол-во элементов равных к=',kolk);
writeln (' Кол-во процентов положительных элементов от общего числа =',percent);
writeln (' Кол-во ненулевых элементов =',nenol);
writeln (' Среднее арифметическое =',sum);
end.

[Vitruvian]

ААА Спасибо Вам ! Большое Спасибо )))