Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
const n=20; var a: array[1..n] of integer; i,k:integer; begin k:=0; for i:=1 to n do begin a:=random(201); write(a,); if a mod 10=0 then inc(k) end; writeln; writeln(k) end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.