Массив! Найти сумму произведений цифр

[perojenko]

хелп!
помогите пожалуйста..
вот задача -

Дан массив A[10] из целых 3ех значных чисел. Найти сумму произведений цифр этих чисел. Произведение цифр находить в процедуре.

[Monte-Kristo]

что-то вроде этого

uses crt;
var
 a: array [1..10] of integer;
 i:byte;
 s,bufs:integer;
procedure summ(ch:integer;var bufs:integer);
 var x,y,z:integer;
 begin
	{bufs:=1;}
             x:=ch div 100;
             y:=ch mod 100 div 10;  
             z:=ch mod 10;
	bufs:=x*y*z;
  {writeln(x,'  ',y,'  ',z);
  writeln(bufs);
  readln;}
 end;
begin
 clrscr;
 randomize;
 for i:=1 to 10 do
	begin
	 a[i]:=random(900)+100;
	 write(a[i],' ');
	end;
 writeln;
 s:=0;
 for i:=1 to 10 do
	begin
	 summ(a[i],bufs);
	 s:=s+bufs;
	end;
 writeln(s);
 readln;
 end.

[Monte-Kristo]

Исправил....

[perojenko]

спасибо!! все работает ^^