создать одномерный массив из 10 элементов найти сумму элементов массива и наименьший из элементов/
и все делать прям как на компе типа
program...
vour A и т.п.
и все делать прям как на компе типа
program...
vour A и т.п.
More Questions From This User See All
Answers & Comments
Verified answer
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