Создать одномерный массив из 10 элементов найти сумму элементов массива и наименьший из элементов/ и все делать прям как на компе типа program... vour A и т.п.
Создать одномерный массив из 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]