на языке паскаль

1) дан массив натуральных чисел найдите сумму всех его элементов

2) вычислить количество положительных чисел среди 10 элементов вещественного массива

3) заполнить массив из n целых чисел. выяснить какое число встречается раньше-положительное или отрицательное.

4) в целочисленном массиве есть отрицательные элементы. вывести номера этих элементов

1.

var

i, n, s:integer;

a:array [1 ... 100] of integer;

begin

write ('Введите количество элементов массива: ') ;

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;

begin

k:=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;

begin

write ('Введите количество элементов массива: ') ;

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;

begin

write ('Введите количество элементов массива: ') ;

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.