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

1

Ответы и объяснения

2012-10-29T19:52:07+04:00

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.