ввести строку найти и вывести количество цифр больших 5 входящую в данную строку Срочно на языке паскаль
Answers & Comments
Neykel
Если я тебя правильно поняла, то держи:) 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.
Answers & Comments
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.