program CountElements; var A: array [1..10] of integer; i, count: integer; begin count := 0;
// Заполняем массив случайными числами randomize; for i := 1 to 10 do begin A[i] := random(20); // Генерируем случайное число от 0 до 19 writeln('A[', i, '] = ', A[i]); if A[i] > 10 then count := count + 1; end;
writeln('Количество элементов массива А, больших 10: ', count); end.
program CountElements;
var
A: array [1..10] of integer;
i, count: integer;
begin
count := 0;
// Заполняем массив случайными числами
randomize;
for i := 1 to 10 do
begin
A[i] := random(20); // Генерируем случайное число от 0 до 19
writeln('A[', i, '] = ', A[i]);
if A[i] > 10 then
count := count + 1;
end;
writeln('Количество элементов массива А, больших 10: ', count);
end.