дан массив A (20) заполнить его случайными целыми числами из [-10; 20] вывести на экран найти минимальный элементы массива и сумму положительных чисел

Question

Информатика

Грунятка

18 января, 23:37

дан массив A (20) заполнить его случайными целыми числами из [-10; 20] вывести на экран найти минимальный элементы массива и сумму положительных чисел

+4

Ответы (1)

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

Юрченя · Answer 1

var

a: array [1 ... 20] of integer;

i, min, s: integer;

begin

min: = 20;

s: = 0;

for i: = 1 to 20 do

begin

randomize;

a[i]: = random (30) - 10;

if a[i] < min then min: = a[i];

if a[i] > 0 then s: = s + a[i];

end;

writeln ('Минимальный элемент: ', min) ;

writeln ('Сумма положительных чисел: ', s) ;

end.