С клавиатуры вводится возраст  каждого из 10 друзей. Найти возраст старшего. Сколько друзей такого возраста.


Паскаль

Пишу на QBasicCLSDIM A(10)FOR I = 1 O 10INPUT A(I)NEXT IMAX= A(1)FOR I = 2 TO 10IF A(I)>A(I-1)THENMAX= A(I)END IFNEXT IFOR I = 1 TO 10IF A(I)= MAX THENK=K+1END IF NEXT IPRINT MAXPRINT K