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

Question

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

Comments

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

---

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

---

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

---

Program ololosh;vara,b:real;beginreadln(a); {1-ое число}readln(b); {2-ое число}if a>b thenwrite ('1-ое максимальное, а 2-ое минимальное')elsewrite ('2-ое максимальное, а 1-ое минимальное');end.

Answer 1

Var a,b,c,d,n:integer;
begin
readln(a,b,c,d); 
n:=a;
if an:=b;
if bn:=c;
if cn:=d;
writeln(n);
end.

Answer 2

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 aIf cIf dwriteln('Максимальное ',max,' Минимальное ',min);
readln;
End.

Comments

Необходимо добавить в переменные min и max! После else не ставиться ;

---

clrscr(очистка экрана) не нужна в PacalABC(я думаю,что именно там он работает) :D

---

ой,перед else не ставиться,тьфу

---

ну я давно с паскалем работал забыл уже все:D

---

ой не туда

---

6 строку лучше заменить на writeln('Введите 4 числа через пробел:')