Pascal

[straaannik]

вот как то так написал, но немогу понять в чем ошибка..

program massiv;
var i,j,n:integer;
mas:array[1..n,1..n] of integer;
begin
writeln('razmer matrici');
readln(n);
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=99*random();
begin
mas[i,j]:=0;
mas[i,n+1-i]:=0;
end;
writeln('polychetsa matrica')
writeln(mas);
readln;
end.

[Niro]

Ну заполнение массива у вас почти правильное, но почему у рандома в скобках пусто, во вторых почитайте по цикл for а для наглядности прогоните программу клавишей F8 что бы посмотреть как бегает программа и еще вы говорили, что знаете как определить что элемент находится на диагоналях - но этого нету, должно быть так: если <условие>=истиннf то делаем

[straaannik]

Niro
как можно связатьс с вами что бы уточнить пару вопрос ася есть?