Составить на Паскале.
Даны 3 числа, сосчитайте количество максимальных из них.

1

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

Лучший Ответ!
2014-02-11T13:26:48+04:00

var
  a1, a2, a3, max, i: integer;

begin
  readln(a1);
  readln(a2);
  readln(a3);
  i := 0;
  if a2 > a1 then begin if a3 > a2 then max := a3 else max := a2; end
  else begin if a3 > a1 then max := a3 else max := a1; end;
  if a1 = max then i := i + 1;
  if a2 = max then i := i + 1;
  if a3 = max then i := i + 1;
  writeln(i);
end.