Question

Создать одномерный массив из 10 элементов найти сумму элементов массива и наименьший из элементов/
и все делать прям как на компе типа
program...
vour A и т.п.

Answer 1

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]<min then min:=a[i];
 end;
writeln('s = ',s,' min = ',min);
end.

Пример:
Массив A:
 18 22  5 50 18 23 48  2 22 26
s = 234 min = 2