Дан массив из 45 целых чисел от 1 до 1000. Вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.

Var

a:array [0 ... 44] of integer;

sum: integer;

pr: integer;

st: string;

begin

sum:=0;

pr:=1;

for i:=0 to 44 do

begin

Readln ('a[', i,']=', a[i]) ;

str (a[i], st) ;

if length (st) = 2 then

sum:=sum+a[i];

if length (st) = 1 then

pr : = pr*a[i];

end;

Writeln ('Сумма: ', sum,' Произведение: ', pr) ;

Readln

end.