Задача ** паскале.Заданы 2 числа. Определить, какое из них встречается в массиве...

Question

Задача на паскале.

Заданы 2 числа. Определить, какое из них встречается в массиве чаще.

(нужно полное решение)

Answer 1

const max=10;
var
mas:array[1..max] of integer;
a,b:integer;
countA,countB:integer;
i:integer;
begin
readln (a,b);
for i:=1 to max do
begin
readln (mas[i]);
if (mas[i]=a) then countA:=countA+1;
if (mas[i]=b) then countB:=countB+1;
end;

if (countA>countB) then writeln ('Число' ,a,' встречается больше');
if (countB>countA) then writeln ('Число' ,b, ' встречается больше');
end.