Задание 1 ( ). Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; –9; –8; 58; 45; 36; –85; 58; 36; –45; 2; 3; 25; –9. Задание 2 ( ). В одномерном массиве рассчитать произведение элементов, которые не равняются 0. В отчет включить тексты программ, реакции ЭВМ.

Объяснение:

var x: array [1..15] of real; p: real; n: real; i: integer;

begin

 n:=0; p:=0;

 x[1]:=0;  

 x[2]:=15;

 x[3]:=12;

 x[4]:=-9;

 x[5]:=-8;

 x[6]:=58;

 x[7]:=45;

 x[8]:=36;

 x[9]:=-85;

 x[10]:=58;

 x[11]:=36;

 x[12]:=-45;

 x[13]:=2;

 x[14]:=3;

 x[15]:=25;

 x[15]:=-9;

 for i:=1 to 15 do

 begin

   if (x[i]>0) then n:=n+x[i];

   if (x[i]<0) then p:=p+1;

  end;

end.