Question

Посчитать количество чисел в массиве которые содержат 3 в паскале составьте эту программу пожалуйста

Answer 1

Ответ:

Написать программу ввода с клавиатуры и вывода на экран значений одномерного массива А, состоящего из n вещественных элементов (n=10). Найти сумму элементов этого массива и вывести ее на экран.

Answer 2

Конечно, вот программа на языке Pascal для подсчета количества чисел в массиве, которые содержат цифру 3:

program CountNumbersWithThree;

var
  arr: array of Integer;
  count: Integer;
  i, num: Integer;

begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  Readln(count);

// Инициализация массива
  SetLength(arr, count);

// Ввод элементов массива
  for i := 0 to count - 1 do
  begin
    Write('Введите элемент массива №', i + 1, ': ');
    Readln(arr[i]);
  end;

// Подсчет количества чисел с цифрой 3
  num := 0;
  for i := 0 to count - 1 do
  begin
    if Pos('3', IntToStr(arr[i])) > 0 then
      num := num + 1;
  end;

// Вывод результата
  Writeln('Количество чисел с цифрой 3: ', num);

Readln;
end.

В данной программе сначала пользователь вводит размер массива, затем вводятся элементы массива. Затем происходит подсчет количества чисел в массиве, которые содержат цифру 3. Для этого используется цикл, в котором проверяется наличие цифры 3 в каждом числе с помощью функции `Pos`. Если цифра 3 найдена, то переменная `num` увеличивается на 1. В конце программа выводит результат - количество чисел с цифрой 3.