Напишите программу определяющую количество максимальных чисел в массиве. массив состоит из 10 чисел

на языке паскаль:

const

  n = 10;  

var

    i, a, max, count: integer;

begin

max = -32768 ;

count : = 0;

writeln('массив: ');

for i : = 1 to n do

    begin

    read(a);

  if a > max  

    then  

        begin

        max : = a;

        count : = 1;

      end;

    else

    if a = max

    then

        inc(count)

    end;

    writeln('count max = ', count);

end.

begin

  var a : = arrrandom(10, 1, 9);

  a.println;

  println('кол-во чисел, равных max: ',

      a.findall(p -> p = a.max).count)

end.

var n, n1, n2, n3, k: integer;

begin readln(n); n1 : = 1; n2 : = 1; n3 : = 2; k : = 0; if (n=1) or (n=2) then k : = 1; while n3 < = n do begin if n3=n then k : = 1; n1 : = n2; n2 : = n3; n3 : = n1 + n2; end; if k = 1 then writeln(n, ' является числом фибоначчи') else writeln(n, ' не является числом фибоначчи'); end.

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж