Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.