Дана матрица а(5, 5 1. найти сумму s отрицательных элементов расположенных на побочной диагонали. 2. найти наибольший элемент 2-го столбца. 3. заменить найденные максимальный элемент во 2-м столбце на значение суммы s

  const n=5; var a: array [1..n,1..n] of integer;     i,max,ind,s,j: integer; begin    s: =0;   randomize;   for i: =1 to n do    for j: =1 to n do      a[i,j]: =random(100)-50; for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   j: =6;     for i: =1 to n do     begin      dec(j);       if a[i,j]< 0 then        s: =s+a[i,j];     end;   max: =a[1,2];   ind: =1;   for i: =1 to n do    if abs(a[i,2])> abs(max) then     begin      max: =a[i,2];       ind: =i;     end;   a[ind,2]: =s;         writeln;         writeln;     writeln('a)summ: ',s);     writeln('b)max: ',max);     writeln;         writeln('c)');   for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   readln; end.

  function dele (s : string) : string;   var    l,i : integer;   begin    l : = length (s);     i : = l;     while i> 0   do      begin      if (s[i] = ' ') and (i< l) then        if s[i+1] = ' ' then        begin          delete (s,i,1);           i : = i -1;         end;       i : = i -1;       end;     result : = s;   end;       var    a : string;   begin  readln (a);   writeln (dele(a));   end.

// нужно составить программу паскаль с for вывести на экран 1000; 900; ..; 100  var i,x: word; begin     for i: =1000 downto 100  do //если вместо слова to в цикле for поставить downto, то после выполнения каждого шага цикла переменная-счетчик будет не увеличиваться, а уменьшаться на единицу       begin             x: = i mod 100;             if x=0 then writeln (i);         end; end.