Для заданного множества чисел найти разность между максимальным и минимальным числами

@Алексей09 · Регистрация: 08.06.2015

Author24 — интернет-сервис помощи студентам

Ввести 8 целых чисел. Найти разницу между наибольшим и наименьшим из них.

@APALoff · 17.06.2015, 23:43

Pascal

For i:=1 to 8 do
Begin
  Readln(a);
  If i=1 then
  Begin
    max:=a;
    min:=a;
  end;
  If a>max then max:=a;
  If a<min then min:=a;
end;
Writeln(max-min);

@Sergio Leone · 17.06.2015, 23:44

Pascal

var i, A, minA, maxA : integer;
begin
  for i:=1 to 8 do begin
    Write('введите ',i,' число: '); ReadLn(A);
    if i=1 then begin minA := A;  maxA := A end
    else begin
       if A>maxA then maxA := A;
       if A<minA then minA := A;
    end;
end;
WriteLn('разность = ', maxA- minA);
Readln
end.

@APALoff · 17.06.2015, 23:52

Не по теме:

Sergio Leone, мы даже названия переменных использовали практически одинаковые. ))

@Sergio Leone · 17.06.2015, 23:56

Не по теме:

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

Sergio Leone, мы даже названия переменных использовали практически одинаковые. ))

Точняк!!! :) у кого там мысли сходятся?! :d

Просто программа уж очень хрестоматийно-очевидная...
Хотя я вначале хотел сделать чтение первого числа отдельно, чтобы избавиться от проверки на i=1 внутри цикла...

Для заданного множества чисел найти разность между максимальным и минимальным числами

Решение

Решение

@Алексей09 0 / 0 / 0 Регистрация: 08.06.2015 Сообщений: 6
		1
	Для заданного множества чисел найти разность между максимальным и минимальным числами 17.06.2015, 23:05. Показов 1779. Ответов 4 Метки нет (Все метки) Ввести 8 целых чисел. Найти разницу между наибольшим и наименьшим из них. 0

@APALoff
	17.06.2015, 23:52 #4
	Не по теме: Sergio Leone, мы даже названия переменных использовали практически одинаковые. )) 0

@Sergio Leone
	17.06.2015, 23:56 Для заданного множества чисел найти разность между максимальным и минимальным числами #5
	Не по теме: Сообщение от APALoff Sergio Leone, мы даже названия переменных использовали практически одинаковые. )) Точняк!!! :) у кого там мысли сходятся?! :d Просто программа уж очень хрестоматийно-очевидная... Хотя я вначале хотел сделать чтение первого числа отдельно, чтобы избавиться от проверки на i=1 внутри цикла... 0

Опции темы