const n=20; m=10;
var
a:array[1..n] of integer;
k:array[0..m-1] of integer;
i,j,max:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(m);
write(a[i],' ');
end;
writeln;
for j:=0 to m-1 do k[j]:=0;
for i:=1 to n do k[a[i]]:=k[a[i]]+1;
max:=0;
for j:=1 to m-1 do
if k[j]>k[max] then max:=j;
writeln('Самый часто встречающийся элемент: ',max);
writeln('Встречается в массиве ',k[max],' раз(а)');
end.
Объяснение:Пример:
Исходный массив:
1 1 8 8 6 2 3 8 8 9 5 2 6 9 8 7 3 9 7 9
Самый часто встречающийся элемент 8
Встречается в массиве 5 раз(а)
1) цикл с предусловием
Переведено с английского языка.-В большинстве языков компьютерного программирования цикл while является оператором потока управления, который позволяет многократно выполнять код в зависимости от заданного логического условия. Цикл while можно рассматривать как повторяющийся оператор if.
2)Цикл while применяют, если число повторений неизвестно заранее. Цикл while в Паскаль является оператором цикла с предварительным условием, то есть заголовок цикла содержит в себе логическое условие, при истинности которого выполняются команды тела цикла. Логическое выражение заголовка цикла может быть и составным.
3)Цикл с предусловием записывается так:
while выражение do
оператор;
Цикл с постусловием выглидит так:
repeat
тело цикла
until выражение
То есть цикл с постусловием обязательно выполнится хотя бы один раз, и после выполнения тела цикла будет проведена проверка продолжения цикла. В случае же с while, проверка осуществляется перед выполнением цикла.
4)Таким образом, операторы, образующие тело цикла оператора repeat, выполняются по крайней мере один раз. Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла
На 5 вопрос я не знаю ответа, прости
