program ex_1;
var N, S, i: Integer;
Arr: array of Integer;
begin
randomize;
write('Введите N: ');
read(N);
SetLength(Arr, N);
write('Массив: ');
for i := 0 to N-1 do begin
Arr[i]:=random(90)+10;
write(Arr[i],' ');
S+=Arr[i]
end;
writeln;
write('Сумма: ', S);
end.