Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Program z;
var a: array [1..10] of integer;
N,i,k: integer;
begin
N := 10;
k=0;
for i:=1 to N do
readln(a[i]);
for i:=1 to N do
if a[i]>9 and a[i]100
then k:=k+1;
writeln(k);
end.