Создать одномерный массив из 10 элементов найти сумму элементов массива и наименьший из элементов/

и все делать прям как на компе типа

program ...

vour A и т. п.

Const n=10;

var a:array[1 ... n] of integer;

i, s, min:integer;

begin

Randomize;

writeln ('Массив A:');

for i:=1 to n do

begin

a[i]:=random (51);

write (a[i]:3);

end;

writeln;

s:=0; min:=a[1];

for i:=1 to n do

begin

s:=s+a[i];

if a[i]
end;

writeln ('s = ', s,' min = ', min);

end.

Пример:

Массив A:

18 22 5 50 18 23 48 2 22 26

s = 234 min = 2