Циклические алгоритмы

[Lena neznayka]

12. Дана квадратная матрица A[N, N]. Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде.

[ROMA2PVT]

Program matrix;
Uses
  CRT;
var
   mas:array[1..100,1..100] of integer;
   i,j,n:integer;
begin
clrscr;
write('Введите N:=');
readln(n);
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    mas[i,j]:=random(10)-2;
    write(mas[i,j]:2,' ');
     if mas[i,j]<0 then
       mas[i,j]:=0;
         if mas[i,j]>0 then
           mas[i,j]:=1;
   end;
  writeln;
 end;
writeln('Результирующий массив: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   if (j<=i) then
   write(mas[i,j]:2,' ');
  writeln;
 end;
readkey;
end.

[stel_znamensk]

Люди, я вас прошу, напишите мне ответ, я не могу 2-й день написать программу, так как не понимаю суть задачи. у меня в пон. зачет, а нужно сдавать!! вот задача-
Вычислить порядковый номер элемента последовательности 1+1/(1+2)+1/(2+3)... + 1/(n+(n+1)), значение которого станет меньше 0,002 буду ооочень признателен и благодарен за помощь!!)

[Stranger333]

Ну здесь можна еще сделать вывод этой всей суммы.

var k,i,n:integer; s1,s:real;
begin
  k:=0;
  n:=0;
  s:=0;
  s1:=1;
  while s1>0.002 do
  begin
    s:=s+s1;
    s1:=1/(n+(n+1));
    k:=k+1;
    n:=n+1;
  end;
  writeln(s-1:5:5,'    ',k-1);
  readln;
end.

[stel_znamensk]

Спасиб большое!!)

[Lena neznayka]

Составить программу для игры в шахматы. Каждая уникальная шахматная фигура выступает в качестве отдельного объекта. Она характеризуется цветом, положением на доске, способом перемещения. Предусмотреть возможность превращения пешки в ферзя.

[Stilet]

Ну и в чем сложности? Что в методичке написано?

[Lena neznayka]

ничего там не сказано(((((
(((((я не понимаю, что от меня хотит препод))
я не понимаю ничего в этом