Question

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

Answer 1

Const n = 10;//размерность массива

Var mas: array[1..n] Of integer;

jjj, h, etl: integer;

Begin

readln(etl);// число , кол-во которого будем искать

writeln;

For jjj:=1 To n Do

Begin

read(mas[jjj]);

If mas[jjj]= etl Then h := h+1;

End;

writeln;

write(h);

End.

Answer 2

Для написания программы на языке Pascal, которая будет находить количество повторений заданного числа в одномерном массиве, следуйте этим шагам:

1. Объявите переменные: массив, размер массива, число для поиска и переменную для подсчета повторений.
2. Вводите массив с помощью цикла for.
3. Вводите число, которое нужно найти в массиве.
4. Пройдитесь по массиву снова с помощью цикла for и увеличивайте счетчик повторений каждый раз, когда встречается заданное число.
5. Выведите результат.

Вот готовый код программы на Pascal:

pascalCopy code
program CountOccurrences;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  numToFind: Integer;
  size, i, count: Integer;

begin
  writeln('Введите размер массива (не более ', MAX_SIZE, '): ');
  readln(size);

  writeln('Введите элементы массива:');
  for i := 1 to size do
    readln(arr[i]);

  writeln('Введите число, которое нужно найти в массиве:');
  readln(numToFind);

  count := 0;
  for i := 1 to size do
  begin
    if arr[i] = numToFind then
      Inc(count);
  end;

  writeln('Число ', numToFind, ' встречается в массиве ', count, ' раз(а).');
end.

Программа позволяет ввести размер массива и его элементы с клавиатуры, а затем запрашивает число, которое нужно найти. После этого программа выводит количество повторений этого числа в массиве.