)1) написать программу , заполняющую массив из 10 элементов числами от 10 до 1. 2)написать программу подсчитывающую количество нечетных элементов в массиве случайных чисел. 3) программа заполняет массив случайными числами от -10 до 10 и находит сумму отрицательных и положительных элементов.

1const      n = 10;   var    a : array [1..n] of integer;     i : integer;           begin    randomize;   // выбери нужный for     for i : = 1 to n do      begin       a[i] : = i;         writeln (a[i]);       end;     //a[1]=1,a[2]==10          //рандомом    for i : = 1 to n do      begin      a[i] : = 1 + random (9);         writeln (a[i]);       end;   end. 2   const      n = 25; //кол-во элементов   var  a : array [1..n] of integer;   i,k : integer;   begin   randomize;     for i : = 1 to n do     a[i] : = -20+random(40);       k : = 0;     for i : = 1 to n do    if a[i] mod 2 =1 then     k : = k +1;     writeln (k);       end.3const      n = 10;   var    a : array [1..n] of integer;     i,s1,s2 : integer;         begin    randomize;     for i : = 1 to n do      begin        a[i] : = -10+random(21);       writeln (a[i]);       end;           s1 : = 0; s2 : = 0;     for i : = 1 to n do    begin      if a[i] > 0 then      s1 : = s1 +a[i];       if a[i] < 0 then      s2 : = s2 +a[i];     end;       writeln ('сумма положительных=',s1);       writeln ('сумма отрицательных=',s2);     end.

Program vladimir37005; const n=5; var a: array[1..n] of integer;           i,min,k: integer; begin for i: =1 to n do begin write('a[',i,']='); read(a[i]); end; min: =a[1]; k: =1;   for i: =1 to n do if (a[i] < min)  then  begin  min: =a[i]; k: =i;   end;   for i: =1 to n do if (a[i] < 0) and (a[i] > min)  then begin  min: =a[i]; k: =i; end; a[k]: =0; for i: =1 to n do write(a[i],' '); end.