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

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

program ...

vour A и т. п.

Question

Информатика

Флорентий

10 декабря, 11:44

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

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

program ...

vour A и т. п.

+3

Ответы (1)

Знаете ответ?

Виктбрия · 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]
end;

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

end.

Пример:

Массив A:

18 22 5 50 18 23 48 2 22 26

s = 234 min = 2

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

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

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

program ...

vour A и т. п.