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

[vigun]

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

[Krjuger]

Эм,все делается немного по другому.Для начала проще завести массив в котором будут храниться все эти 10 цифр,согласись было бы неплохо видеть все вводимые данные.

const
  n=10;
var
  mas : array [1..n]of real;
  i,S : integer;
  max,min : real;
  razn:real;
  flag : integer;
begin
S:=0;
flag:=0;
for i:=1 to n do
  read(mas[i]);
i:=1;
while flag=0 do
 begin
  if mas[i]<0 then
     flag:=1;
  if mas[i]=0 then
     flag:=2;
  inc(i);
 end;

 if flag=2 then
 begin
  i:=1;
  max:=mas[i];
  min:=mas[i];
  for i:=2 to n do
    begin
    if mas[i]>max then
      max:=mas[i];
    if mas[i]<min then
      min:=mas[i];
    end;
  razn:=max-min;
  writeln('Max:',max:0:2);
  writeln('Min:',min:0:2);
  writeln('Raznost*:',razn:0:2);
 end;
end.

Вот так можно найти максимум и минимум и их разность,если раньше 0,дальше я думаю сам сможеш осилить?
Еще возник вопрос

иначе вывести среднеарифметическое

тобиш среднее арифметическое надо выводить не только когда отрицательное число раньше,но и ,если в массиве нету ни отрицательных ни нуля????Если да,то часть с flag можно упростить..

Кстати быстрельно измени название темы,оно должно быть информативным, и в твоем втором посте заключи код программы в теги.А то админ придет и накажет.

writeln®;
end
else
writeln©;

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

Сообщение отредактировано: Krjuger - 3.06.2011 21:51

[vigun]

Эм,все делается немного по другому.Для начала проще завести массив в котором будут храниться все эти 10 цифр,согласись было бы неплохо видеть все вводимые данные.

const
  n=10;
var
  mas : array [1..n]of real;
  i,S : integer;
  max,min : real;
  razn:real;
  flag : integer;
begin
S:=0;
flag:=0;
for i:=1 to n do
  read(mas[i]);
i:=1;
while flag=0 do
 begin
  if mas[i]<0 then
     flag:=1;
  if mas[i]=0 then
     flag:=2;
  inc(i);
 end;

 if flag=2 then
 begin
  i:=1;
  max:=mas[i];
  min:=mas[i];
  for i:=2 to n do
    begin
    if mas[i]>max then
      max:=mas[i];
    if mas[i]<min then
      min:=mas[i];
    end;
  razn:=max-min;
  writeln('Max:',max:0:2);
  writeln('Min:',min:0:2);
  writeln('Raznost*:',razn:0:2);
 end;
end.

Вот так можно найти максимум и минимум и их разность,если раньше 0,дальше я думаю сам сможеш осилить?
Еще возник вопрос

тобиш среднее арифметическое надо выводить не только когда отрицательное число раньше,но и ,если в массиве нету ни отрицательных ни нуля????Если да,то часть с flag можно упростить..

Кстати быстрельно измени название темы,оно должно быть информативным, и в твоем втором посте заключи код программы в теги.А то админ придет и накажет.
Как ты эти символы после Wrilteln получил?))

Cможешь отправить мне всю программу полностью со среднеарифметическим и с максимумом и минимумо, ато я что то запутался!

[Lapp]

Cможешь отправить мне всю программу полностью со среднеарифметическим и с максимумом и минимумо, ато я что то запутался!

Что-то распутывайся, приятель.
Мы тут не для того, чтоб ты что-то сдал, а для того, чтоб ты что-то понял .
Говори, где запутался.

[vigun]

Что-то распутывайся, приятель.
Мы тут не для того, чтоб ты что-то сдал, а для того, чтоб ты что-то понял .
Говори, где запутался.

Я не знаю как теперь сюда всунуть среднеарифметичекое!

[Lapp]

Я не знаю как теперь сюда всунуть среднеарифметичекое!

А пробовал?

[vigun]

А пробовал?

да