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

Question

Информатика

Власий

23 июня, 21:44

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

+2

Ответы (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.