В ведомости указана зарплата ,выплаченная каждому из сотрудников фирмы за месяц. Определить общую сумму выплаченных по ведомости денег — Pascal(Паскаль)
const
n=10;
var
n:integer;
begin
for i:=1 to n
a[i]:=random(100);
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s);
end.