1.Создать массив целых чисел R[1..n], содержащий серии чисел разделенных нулями. Отсортировать массив по возрастанию сумм чисел в сериях. 2.В матриц Опции

[xxBOBAHxx]

1.Создать массив целых чисел R[1..n], содержащий серии чисел разделенных нулями. Отсортировать массив по возрастанию сумм чисел в сериях.


2.В матрице NxN определить суммы каждой диагонали параллельно побочной, включая её. Обнулить диагональ с максиамльной суммой.

[Client]

uses crt;
var
   a,b:array[1..20] of integer;
   i,j,n,s,k:byte;
begin
     clrscr;
     write('n= ');
     readln(n);
     for i:=1 to n do read(a[i]);
     s:=0;
     j:=0;
     for i:=1 to n do begin
         if a[i]=0 then begin
            inc(j);
            b[j]:=s;
            s:=0;
         end
         else s:=s+a[i]
     end;
     k:=j;
     for j:=1 to k do write(b[j],' ');
     writeln;
     for j:=1 to k-1 do
         for i:=1 to k-j do
             if b[i]>b[i+1] then begin
                s:=b[i];
                b[i]:=b[i+1];
                b[i+1]:=s
             end;
     for j:=1 to k do write(b[j],' ');
     readkey
end.

Попробуй так