Подсчитать количество вхождений многозначных чисел в данной последовательности - Turbo Pascal
Формулировка задачи:
дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности
Решение задачи: «Подсчитать количество вхождений многозначных чисел в данной последовательности»
textual
Листинг программы
const n = 10; var a: array[1..n] of integer; i, k: integer; begin writeln('Исходный массив: '); k := 0; for i := 1 to n do begin a[i] := random(255) + 1; write(a[i]:5); if (a[i] >= 0) and (a[i] <= 9) then //считаем однозначные inc(k); end; writeln; writeln('Количество многозначных: ', n - k); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д