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

Question

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

Answer 1

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