Question

Дано 5 вещественных чисел
1) Найти сумму этих 5 чисел
2) Заменить отрицательные числа нулём и найти сумму

Answer 1

var

 a: array[1..5] of Double;

 i: Integer;

 sum: Double;

 

begin

 for i := 1 to 5 do

   Read(a[i]);

 

 sum := 0;

 for i := 1 to 5 do

   sum := sum + a[i];

 WriteLn('Сумма чисел: ', sum);

 

 sum := 0;

 for i := 1 to 5 do begin

   if a[i] < 0 then

     a[i] := 0;

   sum := sum + a[i]

 end;

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

end.