Помогите написать программу в паскале!Очень надо!
Задана последовательность целых чисел,количество которых не превосходит 100.Требуется определить за один проход элемент с максимальным значением,а также число его повторений в последовательности.

Спасибо)

Сегодня уже нет))

прости,а завтра? У меня в понедельник информатика(У меня долги(

А что надо?

ещё 2 задачи( Я много раз пробовала и не получается(

В ЛС

program maxof;var ar: array [1..100] of integer;i, j, posl: shortint;max: integer;begin readln(i); for j:=1 to i do begin readln(ar[j]); end; max:=ar[1]; posl:=1; for j:=2 to i do begin if max = ar[j] then inc(posl); if max < ar[j] then begin posl:=1; max:=ar[j] end;  end; writeln(max, ' x', posl);end.