Массив A[10] Найти элементы которые больше 100, подсчитать их количество и вывести их **...

Question

Массив A[10] Найти элементы которые больше 100, подсчитать их количество и вывести их на экран
НАпишите команду, пожалуйста.

Answer 1

Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
var a, b, c, i, n, g:integer;
mass: array[1..100000] of integer;
begin
readln(n);
writeln('Введите числа ');
for i:=1 to n do
begin
read(mass[i]);
if mass[i]>100 then b:=b+1;
if mass[i]>100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел больших ста ', b);
end.