24. В массиве X(1:10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). Посчитать количество пятерок.
Var x:array[1..10] of real; i,n:integer; begin for i:=1 to 10 do begin writeln('Введите лемент №',i); readln(x[i]); if x[i]=5 then inc(n); end; writeln('Всего пятерок ',n); end.