[Помогите!] Решить практическую работу

[niao]

Владею паскалем очень плохо,но задания очень легкие,можете пожалуйста написать текст программы,спасибка с меня обеспечена!

Вот два моих задания:

1.Дано массив из 16 элементов действительных чисел. Определить суму элементов с отрицательным знаком и вывести ответ.

Цитата: Var a: array [1..16] of real; n,i : integer; s: real; begin write('Введите название массива'); for i:=1 to 16 do readln(a[i]); s:=0; for i:=1 to 16 do if a[i]<0 then s:=s+a[i]; writeln('Сумма отрицательных элементов равна',s); readln; end.

2.Дано двумерный массив, размером 4х6 элементов целых чисел. Определить и напечатать для каждого ряда сумму элементов.

[Negus.]

program Project1;

Var i,j:integer; s:integer; a:array[1..4, 1..6] of integer;

begin
randomize;
for j:=1 to 6 do
begin
s:=0;
writeln;
for i:=1 to 4 do
begin
  a[i,j]:=random(10);
  write(a[i,j],' ');
  s:=s+a[i,j];
end;
write(' summa ryada ',' s=',s);
end;
readln;
end.

[=nekros=]

1. Program otriz;
Var a:array[1..16] of real;
i:integer;
Sum:real;
Begin
For i:=1 to 16 do
begin
Writeln('Введите число под номером',i);
Readln(a[i]); \\ Ввод массива
end;
Sum:=0;
For i:=1 to 16 do
begin
if a[i]<0 then
Sum:=Sum+a[i];
end;
Writeln('Сумма отриц. элементов равна',Sum)
end.
сорь тупанул, не углядел код уже готовый))), не соображаю уже под вечер)) удалите если мешает)