....Помогите написать проги на pascal....

Доброго времени суток.

const n = 10;
var
A : array[1..n] of Integer;
SumN, SumP, j : Integer;
begin
Randomize;
for j:=1 to n do A[j] := Random(21) - 5; {21 потому, что Random возвращает число [0;параметр-1]}
SumP := 0;
SumN := 0;
for j:=1 to n do
if A[j] < 0 then Inc(SumN) else Inc(SumP);

WriteLn('Отрицательных -',SumN, ' Положительных - ', SumP);
ReadLn;
end.

2.
const
m = 4;
n = 4;
var
A : array[1..m,1..n] of Integer;
MaxN, IdxM, IdxN, j : Integer;
begin
WriteLn('Введите элементы массива');
for j:= 1 to m do
for k:= 1 to m do ReadLn(A[j,k]);

MaxN := -MaxInt;
for j:= 1 to m do
for k:= 1 to m do
if A[j,k] > MaxN then begin
MaxN := A[j,k];
IdxM := j;
IdxN := k;
end;

WriteLn('Максимальный элемент - ', MaxN);
WriteLn('его строка - ', IdxM);
WriteLn('его столбец - ', IdxM);

ReadLn;
end.

3. Ну это совсем просто.. . Программку сами оформите.

S := 0;
for j:=1 to 100 do S := S + j;

Удачи!

1: вызывай рандом, т. е например x:=random(15) - 5; потому что интервал от -5 до 15ти
и по циклу:
for i:=1 to 15 do
begin
mass:=random(15)-5;
end
3: ну сумма чисел, это арифметическая прогрессия будет