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

Question

Информатика

Эмилия

26 сентября, 12:25

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

+3

Ответы (1)

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

Порфир · 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.