Получить S= сумму максимального и инимального из данных чисел.

@Student777 · Регистрация: 17.12.2008

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

Pascal

uses crt;
var x, y, z, max, min:integer;
begin
  readln(x);   readln(y);   readln(z);
  if (x > y) and (x > z) then max : = x;
  if (y > x) and (y > z) then max : = y;
  if (z > x) and (z > y) then max : = z;
  if (x < y) and (x < z) then min : = x;
  if (y < x) and (y < z) then min : = y;
  if (z < x) and (z < y) then min : = z;
  writeln(min+max);
end.

препод сказал что надо найти макс и мин отдельно.и говорит то что вообще не так сделал..помогите пожалуйста..лекций нет(((

@Puporev · 07.01.2009, 22:43

Можно так найти.

Pascal

max:=x;
if y>max then max:=y;
if z>max then max:=z;
min:=x;
if y<min then min:=y;
if z<min then min:=z;

@Student777 · 08.01.2009, 13:31 **[ТС]**

опробовал.неправильно вычисляет.та старая вычисляла правильно но оформление не подобает.я уже незнаю что делать

@manfeese · 08.01.2009, 14:03

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

Pascal

1 2	writeln('min=',min,'; max=',max); write('min+max=',min+max);

Добавлено через 57 секунд
Вывести значения на экран не пробовал!?

@Student777 · 11.01.2009, 04:47 **[ТС]**

Вроде пробовал.ну если бы не пробовал не писал бы.я еще раз перепроверю и отпишусь)спасибо.

@Student777 0 / 0 / 0 Регистрация: 17.12.2008 Сообщений: 24
	08.01.2009, 13:31 [ТС]	3
	опробовал.неправильно вычисляет.та старая вычисляла правильно но оформление не подобает.я уже незнаю что делать 0

@Student777 0 / 0 / 0 Регистрация: 17.12.2008 Сообщений: 24
	11.01.2009, 04:47 [ТС]	5
	Вроде пробовал.ну если бы не пробовал не писал бы.я еще раз перепроверю и отпишусь)спасибо. 0