Turbo Pascal

[Metal593]

Разработать программу на языке программирования Turbo Pascal:
а) Массив a(30) сформирован случайным образом. Найти в нём ко-
личество элементов меньших среднего арифметического положитель-
ных элементов этого массива.
б) В массив внесена стоимость книг в порядке возрастания их но-
меров в каталоге. Найти самую дорогую и самую дешевую книги (их
номера), если всего книг 30.

Вот что сделал по первой задаче:

program fdgfd;
const 	N=30;
var 	A:array [1..N] of integer;
	i,k:integer;
	S:real;
begin
randomize;
for i:=1 to N do
  A[i]:=random(17)-20;
S:=0;
k:=0;
for i:=1 to N do
  if A[i]>0 then begin
		       S:=S+A[i];
			k:=k+1;
		 end;
S:=S/k;
k:=0;
for i:=1 to N do
  if A[i]<S then k:=k+1;
writeln(k);
end.

а вот по второй:

program wljs;
const  N=30;
var  A:array [1..N] of integer;
 i,MIN,MAX,iMIN,iMAX:integer;
begin
randomize;
for i:=1 to N do
  A[i]:=random(200)+100;
MIN:=A[1];
MAX:=A[1];
for i:=2 to N do begin
  if A[i]>MAX then begin
    MAX:=A[i];
    iMAX:=i;
     end;
  if A[i]<MIN then begin
   MIN:=A[i];
   iMIN:=i;
end;
writeln('самая дешевая - ',iMIN);
writeln('самая дорогая - ',iMAX);
end;
end.

Но ни одна из них почему то не хочет работать

[Serebro]

Сообщение от Metal593

Разработать программу на языке программирования Turbo Pascal:
а) Массив a(30) сформирован случайным образом. Найти в нём ко-
личество элементов меньших среднего арифметического положитель-
ных элементов этого массива.
б) В массив внесена стоимость книг в порядке возрастания их но-
меров в каталоге. Найти самую дорогую и самую дешевую книги (их
номера), если всего книг 30.

Вот что сделал по первой задаче:

program fdgfd;
const 	N=30;
var 	A:array [1..N] of integer;
	i,k:integer;
	S:real;
begin
randomize;
for i:=1 to N do
  A[i]:=random(17)-20;
S:=0;
k:=0;
for i:=1 to N do
  if A[i]>0 then begin
		       S:=S+A[i];
			k:=k+1;
		 end;
S:=S/k;
k:=0;
for i:=1 to N do
  if A[i]<S then k:=k+1;
writeln(k);
end.

Но ни одна из них почему то не хочет работать

В первой программе все элементы a[i] отрицательные?
Нужно изменить строчку:

for i:=1 to N do
  A[i]:=random(17)-20;

Во второй программе нужно изменить

writeln('самая дешевая - ',iMIN);
writeln('самая дорогая - ',iMAX);
end;

на

end;
writeln('самая дешевая - ',iMIN);
writeln('самая дорогая - ',iMAX);