Написать программку для определения сколько раз число 10 встречается среди частей

Написать программку для определения сколько раз число 10 встречается посреди частей одномерного массива. (10,9.6,7,10,2,4,6,7,10,11,22,33)

Задать свой вопрос
1 ответ
//Pascal
var
  i, Count: byte;
  a: array [1 .. 12] of real = (10,9.6,7,10,2,4,6,7,10,11,22,33);
begin
for i := 1 to 12 do
  if A[i] = 10 then Count := Count + 1;
writeln('Количество чисел 10 в массиве = ', Count);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт