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

Вычислить сумму и произведение десяти элементов массива введенных пользователем с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость
var a: array[1..10] of integer; i, p, s: integer; begin for i:=1 to 10 do readln(a[i]); p:=1; s:=0; for i:=1 to 10 do begin p:=p*a[i]; inc(s, a[i]); end; writeln(s); writeln(p); end.
Гость
var   a:array[1..10]of longint;  n,m,k,i,l:longint; begin   for i:=1 to 10 do  begin   readln(a[i]);   k:=k*a[i];   n:=n+a[i]; end;  writeln('Сумма: ',n);    writeln('Произведение: ',k);  readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы