Ребят, помогите пожалуйста объяснить задачи! В целочисленной последовательности…

Ребят, помогите пожалуйста объяснить задачи! В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. Program Om1; Uses crt; Var a: array [1… 100] of real; i,n,j: integer; x: array [1… 100] of real; Begin clrscr; write ('n='); readln (n); for i: =1 to n do readln (a[i]); j: =1; for i: =1 to n do if a[i]=0 then begin x[j]: =i; j: =j+1 end; for i: =1 to j-1 do write (x[i],'); End. Дана последовательность целых чисел а 1, а 2… . Аn. Выяснить какое число встречается раньше, положительное или отрицательное. Program num2; Uses crt; VAr a: array [1… 100] of real; i,n: integer; Begin clrscr; write ('n='); readln (n); for i: =1 to n do readln (a[i]); for i: =1 to n do begin if a[i]<>0 then if a[i]>0 then begin writeln ('Положительное встречается раньше'); break end else begin writeln ('Отрицательное встречается раньше'); break end; end; End. Дана последовательность действительных чисел а 1, а 2… . Аn. Выяснить будет ли она возрастающей. Program num4; Uses crt; Var a: array [1… 100] of real; i, n, j: integer; Begin clrscr; write ('n='); readln (n); a[n+1]: =a[n]+1; for i: =1 to n do readln (a[i]); j: =0; i: =1; while i в избранное ссылка