Ребята не могу написать прогу на BP7....точнее не работат

[ламерок)))]

задача-
В матрице A(m x m) найти сумму элементов четных столбцов. Если эта сумма положительна, то все элементы нечет-ных строк возвести в квадрат. В противном случае ко всем эле-ментам побочной диагонали прибавить число 2,не работат в BP7(((((

uses crt;
var a:array[1..100,1..100]of integer;
    m,i,j,s:integer;
begin
clrscr;
writeln('vvedite rasmernost massiva');
readln(m);
randomize;
for i:=1 to m do begin
    for j:=1 to m do begin
        a[i,j]:=random(10)-4;
        write(a[i,j]:3);
        if j mod 2=0 then s:=s+a[i,j];
    end;writeln;
end;writeln;
writeln('summa elementov chetnih srolbcov ',s);
if s>0 then begin
   for i:=1 to m do begin
       for j:=1 to m do begin
           if i mod 2 <>0 then a[i,j]:=sqr(a[i,j]);
           write(a[i,j]:3);
       end;writeln;
   end; writeln;
end else begin
         for i:=1 to m do begin
             for j:=1 to m do begin
                 if j=m+1-i then a[i,j]:=a[i,j]+2;
                 write(a[i,j]:3);
             end;writeln;
         end;
    end;
readln;
end.

помогите переделать


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Niro]

Зачем так много бегинов - эндов? Почему код не разбит на куски (визуально и не оформлен). Немудрено что в нём трудно найти ошибки, вообщем подправил, держите

uses crt;
var a:array[1..100,1..100]of integer;
m,i,j,s:integer;

begin

clrscr;
writeln('vvedite rasmernost massiva');
readln(m);
randomize;

for i:=1 to m do 
for j:=1 to m do 
  begin
     a[i,j]:=random(10)-4;
     write(a[i,j]:3);
     if j mod 2=0 then s:=s+a[i,j];
  end;
writeln;
writeln;
writeln('summa elementov chetnih srolbcov ',s);

if s>0 then begin
                  for i:=1 to m do 
                  for j:=1 to m do 
                    if i mod 2<>0 then begin
                                                a[i,j]:=sqr(a[i,j]);
                                                write(a[i,j]:3);
                                              end
else begin
         for i:=1 to m do
         for j:=1 to m do
           if j=m+1-i then a[i,j]:=a[i,j]+2;
           write(a[i,j]:3);
      end
end;
readln;
end.

[ламерок)))]

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

блин второе условие все равно не работат......когда сумма нечетная он должен прибавлять 2....а он вообще не показывает в той строке ничего

[Shift_sk]

else begin
         for i:=1 to m do
         for j:=1 to m do
           if j=i then a[i,j]:=a[i,j]+2;
           write(a[i,j]:3);
      end
end;
readln;
end.

попробуй так!

[ламерок)))]

не работат(((( я уже много разных вариантов писал....всеравно при отрицательном не выдает ответ

[Shift_sk]

побочной диагонали это как?

uses crt;
var a:array[1..100,1..100]of integer;
m,i,j,s:integer;

begin

clrscr;
writeln('vvedite rasmernost massiva');
readln(m);
randomize;

for i:=1 to m do  begin
for j:=1 to m do
  begin
     a[i,j]:=random(10)-4;
     write(a[i,j]:3);
     if j mod 2=0 then s:=s+a[i,j];
  end;
  writeln;
  end;
writeln;
writeln;
writeln('summa elementov chetnih srolbcov ',s);

if s>0 then begin
                  for i:=1 to m do
                  for j:=1 to m do
                    if i mod 2<>0 then begin
                                                a[i,j]:=sqr(a[i,j]);
                                                write(a[i,j]:3);
                                              end;
                                              end
else begin
         for i:=1 to m do
         for j:=1 to m do
           if j=i then begin a[i,j]:=a[i,j]+2;
           write(a[i,j]:3);
           end;
      end;
readln;
end.

мне кажеться работает правильно!
у тебя было пару крашей...
а особенно с бегином!