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

[vigun]

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

[IUnknown]

Как ты эти символы после Wrilteln получил?))

Легко Без тегов CODE движок форума сам преобразует C и R в скобочках к знакам копирайта/Registered соответственно.

i:=1;
while flag=0 do
 begin
  if mas[i]<0 then
     flag:=1;
  if mas[i]=0 then
     flag:=2;
  inc(i);
 end;

А введу я ВСЕ элементы больше 0 - что будет? Вылет за границу массива и кирдык программе? Нехорошо...

Кстати, к автору - тот же вопрос: что делать в случае, когда все элементы ненулевые и неотрицательные?