Дан массив из 45 целых чисел от 1 до 1000. Вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.
Answers & Comments
iwrowo
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.
Answers & Comments
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.