Delphi

[averika]

Ребята, вот нашла ваш форум, и хочу вас попросить, сделайте мне детскую задачку :
массив А12 integer найти сумму и произведение эл-тов массива. Желательно бросьте прямо файлом (Заранее благодарна)

[Лубышев]

var A:array[0..12] of integer;
summa,proisv,i:integer;
begin
summa:=0;
proisv:=1;
for i:=0 to 11 do
begin
 A[i]:=random(10);//заполним массив случайными
end;
for i:=0 to 11 do 
 begin
  summa:=summa+A[i];
  proisv:=pvoisv*A[i];
 end;
end;

Не в виде файла потому что нет с собой дельфи,
но код вроде правильный в summa хранится сумма в proisv произведение.
В коде элементы массива заполняются случайными числами от 10, но если хотите, то можно переделать так, чтобы значения элементов с клавиатуры вбивать!