Дано масив дійсних чисел із 20 елементів.Скласти програму, що обчислює суму елементів...

Question

Дано масив дійсних чисел із 20 елементів.Скласти програму, що обчислює суму елементів масиву модуль яких більший за 1. ​

Answer 1

var

 arr: array[1..20] of real;

 s:real;

 i:integer;

Begin

 s:= 0;

 write('Массив: ');

 for i:=1 to 20 do begin

   arr[i]:= random(10);

   write(arr[i], ' ');

 end;

 

 for i:=1 to 20 do

   if Abs(arr[i]) > 1 then

     S:= S + arr[i];

 writeln;

 writeln('Сумма: ', s);

END.