Ввести строку найти и вывести количество цифр - вопрос №32169405 от Anasha12 29.05.2020 20:40

Question

Информатика: Ввести строку найти и вывести количество цифр больших 5 входящую в данную строку на языке паскаль

Anasha12 · Answer

Если я тебя правильно поняла, то держи:)
var i, kol: integer;
a: array[1..10] of integer;
  begin
  for i:=1 to 10 do readln(a[i]);
kol:=0;
for i:=1 to 10 do
if a[i]>5 then kol:=kol+1;
   writeln(' ', kol);
end.