составить программу вычисления суммы и произведения натуральных ...

Viktor

Вот.

 

Program z1;Uses crt;Const N=15;Var a:array [1..n] of integer;sum,i,pr:integer;Beginsum:=0;For i:=1 to n dobegina[i]:=random(10)-15;

Writeln(a[i]);end;for i:=1 to n doif a[i] mod 9 = 0 thenbeginsum:=sum+a[i];pr:=1*a[i];end;

Writeln('Сумма:');Writeln(sum);

Writeln('Произведение:');write(pr);end.