Question

НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ 4 ЧИСЕЛ в ПАСКАЛЕ. Примерное начала задачи на фото, возможно не правильное

Answer 1

Паскаль АВС

Program  Sanmy;
uses crt;
var
  a,b,c,d:real;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  write('c='); readln(c);
  write('d='); readln(d);
  if b>a then a:=b;
  if c>a then a:=c;
  if d>a then a:=d;
  writeln ('Максимальный элемент = ',a);
end.

Answer 2

Вот, держи :)
Если в будущем появятся вопросы -- пиши нам в форму обратной связи на learnpascal.ru 
Мы поможем :)


var x,y,z,w: integer;  
begin 
write('Введите четыре целых числа, разделяя их пробелом: '); 
readln(x,y,z,w); 
if (x > y) and (x > z) and (x > y) then write('Наибольший элемент: ',x) 
else if (y > z) and (y > w) then write('Наибольший элемент: ',y) 
else if z > w then write('Наибольший элемент: ',z)  
else write ('Наибольший элемент: ',w);
end.