Хелпаите Надо написать 2 программы на Паскале..

1) цикл с предусловием

Переведено с английского языка.-В большинстве языков компьютерного программирования цикл while является оператором потока управления, который позволяет многократно выполнять код в зависимости от заданного логического условия. Цикл while можно рассматривать как повторяющийся оператор if.

2)Цикл while применяют, если число повторений неизвестно заранее. Цикл while в Паскаль является оператором цикла с предварительным условием, то есть заголовок цикла содержит в себе логическое условие, при истинности которого выполняются команды тела цикла. Логическое выражение заголовка цикла может быть и составным.

3)Цикл с предусловием записывается так:

while выражение do

оператор;

Цикл с постусловием выглидит так:

repeat

тело цикла

until выражение

То есть цикл с постусловием обязательно выполнится хотя бы один раз, и после выполнения тела цикла будет проведена проверка продолжения цикла. В случае же с while, проверка осуществляется перед выполнением цикла.

4)Таким образом, операторы, образующие тело цикла оператора repeat, выполняются по крайней мере один раз. Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла

На 5 вопрос я не знаю ответа, прости

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 раз(а)