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

+ 0 -

Netkova85

01 окт. 2014 г., 12:13:25 (9 лет назад)

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

+ 0 -

Chira1

01 окт. 2014 г., 12:50:04 (9 лет назад)

Паскаль АВС

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.