Question

Составить программу подсчёта количества элементов одномерного массива, значение которого (не элементов, а массива) превышает 10 (pascal)

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=ArrRandom(Random(10,50),-100,100); a.Println;
  Println('Количество:',a.Length);
end.

Пример:
-39 93 -52 -76 72 -12 58 10 35 28 53 -56 -59 -84 6 39 26 -6 -92 -52 -42 -3 35
Количество: 23 

Answer 2

Конечно! Вот пример программы на языке Pascal, который подсчитывает количество элементов в одномерном массиве, значение которого превышает 10:

pascalCopy code
program CountElements;
var
  arr: array[1..100] of Integer; // Измените размер массива по своему усмотрению
  count, i: Integer;
begin
  count := 0;

  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to 100 do
    arr[i] := Random(20); // Здесь 20 - максимальное значение элемента массива, вы можете изменить его

  // Подсчет количества элементов, превышающих 10
  for i := 1 to 100 do
  begin
    if arr[i] > 10 then
      count := count + 1;
  end;

  // Вывод результатов
  writeln('Количество элементов, значение которых превышает 10: ', count);

  readln;
end.

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

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