Question

Массив. Найти количество элементов равных 5. Паскаль ABC

Answer 1

var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.

Answer 2

Вот пример кода на языке Pascal (Delphi), который находит количество элементов равных 5 в заданном массиве:

pascalCopy code
program CountElements;

const
  N = 10; // размер массива

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

begin
  // Заполняем массив случайными числами для примера
  Randomize;
  for i := 1 to N do
    arr[i] := Random(10); // генерируем случайное число от 0 до 9
  
  // Выводим элементы массива для наглядности
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

  // Находим количество элементов, равных 5
  count := 0;
  for i := 1 to N do
  begin
    if arr[i] = 5 then
      Inc(count);
  end;

  Writeln('Количество элементов, равных 5: ', count);

  Readln;
end.

В этом примере массив arr содержит 10 элементов. Сначала мы заполняем его случайными числами в диапазоне от 0 до 9. Затем мы проходим по массиву и увеличиваем счетчик count, если текущий элемент равен 5. В конце выводим результат.