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

2

Ответы и объяснения

2014-04-04T17:45:48+00:00
Вот, держи :)
Если в будущем появятся вопросы -- пиши нам в форму обратной связи на 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.
2014-04-04T18:03:02+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Паскаль АВС

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.