Подсчитать количество вхождений многозначных чисел в данной последовательности - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы