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

Question

Информатика

Рипсимия

22 июля, 21:03

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

+1

Ответы (1)

Знаете ответ на вопрос?

Василей · Answer 1

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.