Дан массив из 45 целых чисел от 1 до 1000. Вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.
Дан массив из 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.
Не нашли ответ?
Похожие вопросы