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

Question

Информатика

Константин

23 октября, 04:48

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

+5

Ответы (1)

Знаете ответ?

Марго · 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.