Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
program c2;
const n=30;
var
a: array [1..n] of integer;
i,x,y: integer;
s: real;
begin
x:=0;
y:=0;
for i:=1 to n do
begin
a[i]:= random(10); { !! число 10 !! }
writeln(a[i]);
if(a[i]>20) then { !!!! }
begin
x:=x+a[i];
y:=y+1;
end;
end;
s:=x/y;
writeln;
writeln(s);
readln;
end.
Обнаружил в ЕГЭ по информатике, задание «повышенного» уровня сложности. Надо найти ср. арифм. среди элементов массива, которые больше 20.
В книжке с задачами имелись ответы и заглянув туда я заметил этот говнокод. Вы только приглядитесь внимательней ведь массив заполняется рандомом до 10, а цикле программы проверяем элементы, которые больше 20. Такая программа в принципе работать не будет :)
Запостил: 
stalkersev,
(Updated )
Вылетит на 20й строчке, и всё. Но запустится.