Question

Delphi

Подсчитать сумму всех положительных (не равных нулю) элементов заданного целочисленного

массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный

Как решить данную задачу?

Answer 1

Ответ:

program SumArray;

var

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

 i, s: Integer;

begin

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := Random (10) - 2;

   Write (a [i] :3);

 end;

 s := 0;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then

     s := s + a [i];

 end;

 WriteLn;

 WriteLn ('Сумма = ', s);

 ReadLn;

end.