Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>
216 в
217 е
218 а
219 в
220 а
221а 222 с 224 е 225 а 226 а 229 D 231 а 232 а 233 с 234 е
в облочке DOC не заню
Ассемблер (Транслятор исходного текста программы)
"З<span>аписями с последнего урока" воспользоваться не могу, потому задание сделано самым примитивным образом. Недостающий текст добавляйте сами. HTML-файлы и рисунок прилагаются.
Нет, HTML приложить сайт не даёт, так что посылаю в текстовом виде, тип файла (расширение) меняйте сами.</span>