Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Сформировать массив в размерности 1-50 с помощью генератора случайных чисел. 1) программа подсчетов суммы элементов массива 2) -//- ; найти минимум в массиве. от 30 до 50

Ответ оставил Гость

Var
a: array [1..50] of integer;
i,n,min:integer;
Begin
randomize;
for i:=1 to 50 do
a[i]:=random(100);
for i:=1 to 50 do
write(a[i], );
for i:=1 to 50 do
n:=n+a[i];
min:=a[1];f
or i:=1 to 50 do
if min>a[i] then min:=a[i];
writeln;
writeln(sum ,n);
writeln(min ,min);
End.