Помогите написать программу., Составить программу по данному условию в турбо паскале Опции

[vigun]

Вводиться 10 чисел. Выяснить, что встречается раньше: отрицательное число или ноль. Если раньше 0, то выяснить разницу между макс. и мин. числом, иначе вывести среднеарифметическое всех положительных чисел.

[Krjuger]

В чем именно проблемы?

[vigun]

Я среднеарифметическое нашел, а максимум и минимум не могу.
Вот моя прога, помоги исправить ошибки.

var a,max,min,s,r,c,k,m,n,i: integer;
begin
readln(max);
readln(min);
s:=0;
k:=0;
for i:=3 to 10 do
begin
readln(a);
if a>0 then
begin
s:=s+a;
k:=k+1;
if a:=0 then
begin
n:=i;
end;
if a<0 then
begin
m:=i;
end;
end;
if a>max then
begin
max:=a;
end;
if a<min then
begin
min:=a
end;
end;
r:=max-min;
if max>0 then
begin
c:=(s+max)/k;
end
else
begin
c:=s/k;
end;
if n<m then
begin
writeln( r);
end
else
writeln( c);
end;
end.

М

Теги!!

Сообщение отредактировано: Lapp - 4.06.2011 3:37