Массив A[10] Найти элементы которые больше 100, подсчитать их количество и вывести их на экран
НАпишите команду, пожалуйста.
Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
