[username12]

1. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Заменить на -1 элементы массива, лежащие выше главной диагонали. Вывести исходный массив и полученный результат на печать.
2. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Определить номера строк массива, суммы элементов которых меньше суммы элементов, стоящих на главной диагонали. Вывести исходный массив и полученный результат на печать

[Alegun]

Наводящий вопрос - что такое "на главной диагонали"? Технарю ваших внутренних теоретических "закидонов" не понять, а гуглить, себе дороже

[Aristarh Dark]

Главная диагональ - из верхнего левого в правый нижний угол, т.е. элементы с координатами a[1,1] a[2,2] ... a[n,n]

[Alegun]

Оффтоп:

Да я в курсе :-), спрашивали подобное и раньше, просто хотелось от аффтора такое же услышать, но видно не судьба...

Вот вариант решения первой задачи

Код:

program zadanie1;
uses crt;
var m:array [1..10,1..10] of integer;  {квадратная матрица}
    i,j,b: byte; {индексы матрицы}
begin
clrscr;
randomize; {инициализация генератора случайных чисел}
for i:=1 to 10 do   {цикл заполнения матрицы}
 for j:=1 to 10 do
  begin
   b:= Random(52);
   if b = 0 then b:= 1;
   b:= b - 26;
   m[i,j]:= b;
  end;
clrscr;
writeln('Исходная матрица*');
writeln;
for i:=1 to 10 do {цикл вывода матрицы на экран}
begin
for j:=1 to 10 do
write(m[i,j]: 5);
writeln;
end;

for i:=1 to 10 do   {цикл замены элементов }
 for j:=1 to 10 do
 begin
 {если елемент выше гл диагонали, то присваиваем ему -1}
 if i<j then m[i,j]:= -1;
 end;

writeln('Измененная матрица*');
writeln;
for i:=1 to 10 do  {цикл вывода матрицы на экран}
begin
for j:=1 to 10 do
write(m[i,j]: 5);
writeln;
end;
readkey;

end.

С консолью не дружу, с тырнету слямзино, ясен перец