даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля

+ 0 -

Ansar21

16 апр. 2014 г., 8:39:10 (10 лет назад)

var a,b,c,d,n:integer;
begin
readln(a,b,c,d); 
n:=a;
if a<b then
n:=b;
if b<c then
n:=c;
if c<d then
n:=d;
writeln(n);
end.

+ 0 -

Amina2004s

16 апр. 2014 г., 10:19:24 (10 лет назад)

Program jij;
uses crt;
var a, b, c, d:integer;
Begin
clrscr;
writeln(''Введите четыре числа через пробел );
readln(a, b, c, d);
If a>b then max:=a; else max:=b;
If c>max then max:=c;
If d>max then max:=d;
If a<b then min:=a; else min:=b;
If c<max then min:=c;
If d<max then min:=d;
writeln('Максимальное ',max,' Минимальное ',min);
readln;
End.

+ 0 -

RuslanStep

16 апр. 2014 г., 11:53:08 (10 лет назад)

Даны переменные ? То есть задаются с клавиатуры пользователем ?

+ 0 -

Ірф

16 апр. 2014 г., 13:58:20 (10 лет назад)

из 4 чисел найти одно максимальное и одно минимальное ?

+ 0 -

Nurkanurka27

16 апр. 2014 г., 16:50:26 (10 лет назад)

типо как тут только у меня 4 числа

+ 0 -

Trosheva2001

16 апр. 2014 г., 18:11:24 (10 лет назад)

Program ololosh;

var

a,b:real;

begin

readln(a); {1-ое число}

readln(b); {2-ое число}

if a>b then

write ('1-ое максимальное, а 2-ое минимальное')

else

write ('2-ое максимальное, а 1-ое минимальное');

end.