Всем привет) Помогите написать алгоритм решенной задачи в Pascal...

Question

Код: 
var a:array[1..1000,1..1000] of integer; 
 n,i,j,k:integer; 
begin 
 writeln('Введите кол-во строк/столбцов'); 
 readln(n); 
 for i:=1 to n do 
 for j:=1 to n do 
 begin 
 readln(a[i,j]); 
 if a[i,j]<0 then k:=k+1; 
 end; 
 writeln('Кол-во отрицательных элементов = ',k); 
readln 
end. 
Алгоритм: 
??? 
Начало 
Введит кол-во строк и столбцов 
Решение, формула 
Вывод ответа на экран... .

Maral · Accepted Answer

пиши в личку, за 50 договоримся...