еще 1 задачка на паскале...

[Оксаночка:)]

Даны три вещественных числа. Используя только две неполных (без инструкции else) условных инструкции, определить :
а) максимальное значение заданных чисел;
б) минимальное значение заданных чисел.
заранее спасибо

[Armorer]

if a < b then
  a := b;
if a < c then
  a := c;
//a - max

для минимального немного изменить.

[Оксаночка:)]

program y;
var a,b,c : integer;

begin

writeln ('vvedit chislo a');
readln(a);

writeln ('vvedit chislo b');
readln(b);

writeln ('vvedit chislo c');
readln(c);

if a < b then
  a := b;
if a > c then
  a := c;

writeln ('min =  ',a);

end.

[Оксаночка:)]

правильно ???

[Оксаночка:)]

проверте...нужно найти минмальній елемент...

[Оксаночка:)]

гляньте нп прогу...