Question

Составить программу на языке Паскаль. Найти количество элементов одномерного массива А (10), больших 10

Answer 1

Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:

var
  A: array[1..10] of integer;
  k, i: integer;

begin
  for i := 1 to 10 do
  begin
    writeln('Введите числа массива:');
    readln(A[i]);
    
    if A[i] > 10
      then k := k + 1;
  end;
  writeln('Количество элементов, больших 10 - ', k);
end.