Question

Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных чисел. Pascal ABC

Answer 1

Var
  a:array[1..10] of integer;
  b,i,k:integer;
begin
  Randomize;
  Write('Введите количество элементов в массиве: ');
  for i:=1 to 10 do
  begin
    a[i]:=Random(21)-10;
    Write(a[i],' ')
    end;
  Writeln;
  Write('Какое число искать? ');
  Readln(b);
  k:=0;
  for i:=1 to 10 do
    if a[i]=b then Inc(k);
  Writeln('Число встречается ',k,' раз')
end.

Answer 2

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

pascalCopy code
program CountOccurrences;

const
  ARRAY_SIZE = 10;

var
  arr: array[1..ARRAY_SIZE] of Integer;
  numberToFind: Integer;
  i, count: Integer;

begin
  Randomize; // Инициализируем генератор случайных чисел

  // Заполнение массива случайными числами
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99

  // Вывод содержимого массива
  writeln('Содержимое массива:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');

  writeln;
  writeln;

  // Получение числа от пользователя
  write('Введите число для поиска: ');
  readln(numberToFind);

  // Поиск числа в массиве и подсчет вхождений
  count := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] = numberToFind then
      Inc(count);
  end;

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

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