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

0 голосов
61 просмотров

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


Информатика (112 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

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.

(1.4k баллов)