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

1.

var i,n,s: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); s: =0; for i: =1 to n do begin  readln(a[i]);   s: =s+a[i]; end; writeln('сумма элементов массива = ',s); end.

2.

var i,n,k: integer; a: array [1..10] of real;   begink: =0; for i: =1 to 10 do begin  readln(a[i]);   if a[i]> 0 then k: =k+1; end; writeln('количество положительных элементов массива = ',k); end.

3.

var i,n: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); for i: =1 to n do   readln(a[i]); if a[1]> 0 then writeln('раньше встречается положительное число')                  else writeln('раньше встречается отрицательное число')end.

4.

var i,n: integer; a: array [1..100] of integer;   beginwrite('введите количество элементов массива: '); readln(n); for i: =1 to n do   readln(a[i]); for i: =1 to n do if a[i]< 0 then write(i,' '); end.