Написать программу в turbo pascal. напишите программу генератором случайных чисел генерируется последовательность 50-ти случайных чисел из диапазона [-10; 20]. вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

Var a : array[1..50] of integer;   
      sum, i : integer;
begin
randomize;
for i := 1 to 50 do begin 
      a[i] := random(31)-10; 
      if (a[i] > 0) and (i mod 2 <> 0) then   
            sum := sum + a[i]; 
end;
write(sum)
end.

Program z1;
        var a:array[1..100] of integer;
        n,i:byte;ma:integer;
begin
        write('n=');readln(n);
        for i:=1 to n do begin
                write(i,')');readln(a[i])
        end;
        ma:=a[1];
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i]
                end
        end;
        for i:=1 to n do begin
                a[i]:=ma
        end;
        writeln('test n=',n);
        for i:=1 to n do begin
                writeln(a[i])
        end;
        readln
end.

Program task1;

const
  n = 10;

var
  a :array [1..n] of real;
  i, j :integer;
  min, k :real;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  min:= a[1];
  for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;
   
  k:= a[n];
  a[n]:= a[j];
  a[j]:= k;

end.

program task2;

const
  n = 10;

var
  a :array [1..n] of integer;
  i, j, kol :integer;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  kol:= 0;
  for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
  for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
  writeln(j);

end.