Question

Pascal. Вычислить количество элементов массива, равных 5. Если таких чисел нет, то вывести сообщение об этом

Answer 1

Ответ:

• begin
• var a := ArrRandom(10,0,9);
• a.Println;
• if a.Any(x->x=5) then Print('Kоличество:',a.Count(x->x=5))
• else Print('Таких чисел нет.')
• end.

Пример работы:

Answer 2

Ответ:

var a:array [1..10] of integer;

   i, count:integer;

begin

 count:=0;

 for i:=1 to 10 do begin

   a[i]:=random(10);

   if a[i] = 5 then count:=count + 1;

 end;

 write('Элементов массива равных пяти: ', count);

end.

Answer 3

Конечно! Я могу помочь вам с этим заданием на языке Pascal. Вот пример кода, который вычисляет количество элементов в массиве, равных 5, и выводит соответствующее сообщение, если таких элементов нет:

pascalCopy code
program CountOccurrences;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  n, i, count: Integer;
  found: Boolean;

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

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

  // Поиск элементов, равных 5
  count := 0;
  found := False;
  for i := 1 to n do
  begin
    if arr[i] = 5 then
    begin
      count := count + 1;
      found := True;
    end;
  end;

  // Вывод результата
  if found then
    writeln('Количество элементов, равных 5: ', count)
  else
    writeln('В массиве нет элементов, равных 5.');

  readln;
end.

Вы можете запустить этот код в среде разработки Pascal, и он попросит вас ввести размер массива и элементы. После этого он выведет количество элементов, равных 5, или сообщение о их отсутствии.

Убедитесь, что у вас установлена среда разработки Pascal, такая как Free Pascal или Turbo Pascal, чтобы запустить этот код.