Написать задачу на Pascal

[Eithate]

Пожалуйста, помогите

Нахождение разности максимального и минимального значений в
последовательности вводимых чисел. Остановить обработку при вводе заказанного
количества чисел. Тип обработки данных-целые.

Pascal!

[maLoy*508]

Если без наработок своих то во фриланс, за определенную плату сделают -)

[NewLamer&Programer]

Const n = 3; //Остановить обработку при вводе заказанного количества чисел. 
Var 
    a: array [1..n] of integer;
    i, max, min: integer;
begin
for i:= 1 to n do
begin
writeln('a[',i,'] = ');
readln(a[i]);
if a[i] > max then max:= a[i];
end;
min:= max;
for i:= 1 to n do 
if a[i] < min then min:= a[i];
writeln(max-min);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

NewLamer&Programer, во-первых, в коде ошибка, нужно обязательно иницилизировать переменную перед её использованием (у Вас max ничем не иницилизируется!)

во-вторых, задачи поиска минимума-максимума вполне решаются за один проход.
и без массива тут вполне можно обойтись.

Ну а так, попытка решения нормальная, в качестве предварительной версии вполне годится!

[Eithate]

спасибо

[Eithate]

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

NewLamer&Programer, во-первых, в коде ошибка, нужно обязательно иницилизировать переменную перед её использованием (у Вас max ничем не иницилизируется!)

во-вторых, задачи поиска минимума-максимума вполне решаются за один проход.
и без массива тут вполне можно обойтись.

Ну а так, попытка решения нормальная, в качестве предварительной версии вполне годится!

подскажите, как решить локаничнее через repeat,while

[NewLamer&Programer]

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

NewLamer&Programer, во-первых, в коде ошибка, нужно обязательно иницилизировать переменную перед её использованием (у Вас max ничем не иницилизируется!)

во-вторых, задачи поиска минимума-максимума вполне решаются за один проход.
и без массива тут вполне можно обойтись.

Ну а так, попытка решения нормальная, в качестве предварительной версии вполне годится!

1. компилятором ошибок не выдает, всем переменным по дефолту присвоен 0, так что никогда не видел необходимости в их инициализации...
2. у меня получилось за 2 прохода, решишь лучше возьми с полки пирожок... массив лишний, согласен, просто последовательность чисел как то красивее смотрится массивом...

[kventin_zhuk]

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

подскажите, как решить локаничнее через repeat,while

Ну может так, всё в один цикл запихнуть?

program a4;
uses
  crt;
Const n = 3;
Var
    a: array [1..n] of integer;
    i, max, min: integer;
begin
i := 1;
while (i <=  n) do
begin
  write('a[',i,'] = ');
  read(a[i]);
  if i = 1 then
  begin
    min := a[i];
    max := a[i];
  end;
  if a[i] < min then
    min := a[i];
  if a[i] > max then
  max := a[i];
  inc (i);
end;
writeln(max - min);
end.

[Serge_Bliznykov]

Сообщение от ewLamer&Programer

омпилятором ошибок не выдает,

о! Далеко не всё, что компилируется, является правильным кодом!

Сообщение от ewLamer&Programer

всем переменным по дефолту присвоен 0,

не всегда и не везде (даже в Паскале это не всегда так (могу привести пример отсутствия подобной иницилизации, если есть желание увидеть такое..).

Но, даже если на это внимания не обращать, то всё равно Ваш код будет работать криво.
Например, введите, три числа:
-50 -20 -30
и посмотрите, какой максимум выдаст ваша программа...


kventin_zhuk, вот, нормально. Зачёт!