#include using namespace std;int main(){ int n, max = 0, cnt = 0, min = 0; while (cin >> n) { if (n == 0)break; if (max == n) { if (min > cnt) min = cnt; if (min == 0) min = cnt; cnt = 0; } if (max> n) cnt++; } cout << min; return 0;} преобразовать while в цикл

Цикл for

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

for i:=1 to n do

begin

 readln(a);

 if a<5

   then x:= x+1;

end;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

Цикл while

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

while i<>n do

begin

 i:= i+1;

 readln(a);

 if a<5

   then x:= x+1;

end;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

Цикл repeat

program raf105;

var n,a,x,i:integer;

begin

write('Введите количество учеников: ');

readln(n);

writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');

repeat

 i:= i+1;

 readln(a);

 if a<5

   then x:= x+1;

until i=n;

writeln('Учениками было получено ',x,' неудовлетворительных оценок');

end.

Язык PascalABC