Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. Паскаль.
Var
a:array[1..50] of integer;
i,c:integer;
Begin
for i:=1 to 50 do
Begin
a[i]:=random(300)-150;
write(a[i], );
if (a[i]>9) and (a[i]<100) then c:=c+1;
End;
Writeln;
write(Количество всех элементов этого массива, которые являются положительными двузначными числами равняется ,c);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
