Question

Составить программу:
Дан одномерный массив. Подсчитайте, сколько раз встречается в этой таблице максимальное по величине число

Answer 1

begin
 var n:=readinteger();
 var ar:=readarrinteger(n);
 write(ar.Where(x->x=ar.max).Count);
end.