Задача на паскале.Заданы 2 числа. Определить, какое из них встречается в массиве чаще.(нужно полное решение)
Задача на паскале.
Заданы 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.
Не нашли ответ?
Похожие вопросы