Дан одномерный массив. Проверить, встречается ли в нём максимальное значение более 1 раза.

Question

Дан одномерный массив. Проверить, встречается ли в нём максимальное значение более 1 раза.

Answer 1

Var
  max,i,k:integer;
  a:array[1..10]of integer;
begin
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i]:3);
  if a[i]=max then k:=k+1;
  if a[i]>max then
    begin
    max:=a[i];
    k:=1;
    end;
  end;
writeln;
if k>1 then
  writeln('Да (max=',max,'; k=',k,')')
  else writeln('Нет');
end.