Question

Только 5(заранее спасибо).

Answer 1

Var   a:array [1..10] of real;   
        sum:real;   
        i:integer;
begin 
randomize; 
{Формирование массива}
for i:=1 to 10 do  
begin 
    a[i]:=random*117-7;  {начинаем от -7. От -7 до 110 находится 118 чисел, т.к. 110 не должно входить в промежуток, то 118-1=117}
    writeln (a[i]:10:2); 
end;  
{Подсчет суммы положительных чисел в массиве}
for i:=1 to 10 do 
  if a[i]>0 then sum:=sum+a[i]; 
writeln(' sum= ', sum:10:2); 
end.