Question

1)Составить программу для поиска наибольшего из 4 чисел. 2) Cоставить программу поиска наибольшего из трех чисел с учетом того, что числа могут быть равны.Только плз чтобы там было типо такого : Var a,b,c,d max:integer

Answer 1

1)
var
  a, b, c, d, max: integer;
 begin
  readln(a, b, c, d);
  if(a > b) and (a > c) and (a > d) then max := a
  else if(b > a) and (b > c) and (b > d) then max := b
  else if(c > a) and (c > b) and (c > d) then max := c
  else max := d;
  write(max);
end.
2)
var
a, b, c, max:
integer;
 begin
  readln(a, b, c);
  if(a > b) and (a > c) then max := a
  else if(b > a) and (b > c) then max := b
  else max := c;
  write(max);
end.