Задание 1. заполните массивы по данному фрагменту: for I:= 1 to do A[i]:=2*i-1

Задание 2. В массив занесены следующие данные: -2, 7, 4, -5, 2,0,-1,6,3,-2, где А[i]= -2, A[i]=7 и т. д. Определите результат обработки массива:
var s, t:integer;a:array [1...10] of integer;
begin
.
t:=0
for I:= 1 to 10 do
if (A[i] > 5) or (A[i] < 0) then t:=t+1;
end;
writeln( t );

Var     n, i, r, sum, s: integer;   ms: array[1..100]of char; begin   randomize;   n : = random(3, 7);   var ar : = arrrandom(n, 1, 50);   for i : = 1 to n - 1 do     begin     r : = random(1, 2);       if(r = 1) then ms[i] : = '+'       else ms[i] : = '-' end;   s : = ar[0];   write(ar[0], ' ');   for i : = 1 to n - 1 do     begin     write(ms[i], ' ', ar[i], ' ');     if(ms[i] = '+') then s : = s + ar[i]     else s : = s - ar[i];   end;   write(' = ');   read(sum);   if(s = sum) then write('правильно')     else write('неправильно, правильный ответ : ', s); end.

//данная программа вычисляет детерминант матрицы //pascalabc.net 3.2 сборка 1318     var   c: char;   reci: array of integer;   ma: array of array of integer;   n,nc,ip: integer;   resf: real;   function minor(ip,i,n: integer; var reci: array of integer): real;   var     ic,j,c,ipp,icc: integer;     res: real;     b: boolean;     arf: array[1..4] of integer;   begin   b: =true;   c: =0;   reci[ip]: =i;   ipp: =ip+1;   if ipp=nc-1 then   begin     for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then   b: =false;           if b=true then             begin             inc(c);             arf[c]: =ma[ipp,ic];             end;           b: =true;         end;         inc(ipp);         for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then   b: =false;           if b=true then             begin             inc(c);             arf[c]: =ma[ipp,ic];             end;           b: =true;         end;         minor: =arf[1]*arf[4]-arf[2]*arf[3];       end       else   begin       for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then b: =false;           if b=true then             res+=ma[ipp,ic]*power(-1,ipp+i)*minor(ipp,ic,n,reci);             b: =true;           end;     minor: =res;     end; end; procedure start(); var   i,j: integer; begin   write('введите количество строк и столбцов: ');   readln(n);   ip: =1;   nc: =n;   setlength(reci,n+1);   setlength(ma,n+1);   for i: =1 to n do   setlength(ma[i],n+1);   writeln('введите матрицу: ');   for i: =1 to n do     for j: =1 to n do       readln(ma[i][j]);   for i: =1 to n do     resf+=ma[ip][i]*power(-1,ip+i)*minor(ip,i,n,reci);   writeln('res: ',resf); end; begin repeat readln(c); until c in ['z','z','y','y']; if c in ['y','y'] then halt else start(); end. пример работы программы: 3 //введено ни z, ни y, повторяем ввод z //продолжаем программу введите количество строк и столбцов: 3 введите матрицу: 9 1 2 8 3 7 4 6 5 res: -183