1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст....

Question

1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст. Конец ввода точка. Найти количество букв "Г" и "г". Помогите решить задачи в паскале

Answer 1

var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then<br>s:=s+a;
until a=0;
writeln(s);
end.