Посчитать количество шестёвок в массиве f(19)

Question

Посчитать количество шестёвок в массиве f(19)

Comments

Посчитать количество шестёвок в массиве f(19) не в Паскале

---

Мммм. Оке. Паскаль отпадает.

---

Осталость еще 100500 языков

Answer 1

Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']='); 
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k); 
readln;
end.