Question

24. В массиве X(1:10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). Посчитать количество пятерок.

Answer 1

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.