Pascal - Найти сумму всех ее отрицательных элементов и заменить ею все диагональные элементы этой матрицы

[NewBi]

Здравствуйте Уважаемые форумчани.
Учусь на 1 курсе на Программиста и не могу зделать такие задачки на паскале. (Плохо понимаю код) но т.к паскаль вводный язык он у нас не будет продолжатся на высших курсах ( У нас С++ в котором я неплохо ориентируюсь ) Прошу вас помочь с этими задачками мне их просто здавать надо в пятницу а я некак не могу зделать их

Найти сумму всех ее отрицательных элементов и заменить ею все диагональные элементы этой матрицы.


Заранее Благодарен!!!

[mifomen]

Сообщение от NewBi

Задача 1
Найти сумму первых K элементов массива A={a[i]}, удовлетворяющих условию: c<=a[i]<=d.


Заранее Благодарен!!!

ц и д вводяться с клавиатуры?

2 задача

PHP код:

program two;
uses crt;
const n=7;
var a:array [1..n,1..n] of integer;
    s,i,j:integer;
begin  clrscr; randomize;
    for i:=1 to n do begin
     for j:=1 to n do begin
     a[i,j]:=random(17)-4; write(a[i,j]:4); end; writeln; end;
     s:=0;
     for i:=1 to n do
      for j:=1 to n do
      if a[i,j]<0 then s:=s+a[i,j];

    writeln(s); {Summa}

    for i:=1 to n do
     for j:=1 to n do
     if i+j=n+1 then a[i,j]:=s;{Esli drugui diogonal to i=j postavish}

     for i:=1 to n do begin
     for j:=1 to n do
     write(a[i,j]:4); writeln; end;

readkey
end. 


[NewBi]

Спасибо огромное за 2-ю задачу!!!

Да в 1 задании ц и д вводятся с клавиатуры.