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

[xxBOBAHxx]

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


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

[xxBOBAHxx]

1.uses crt;
const n=30;
var a,s, g:array[1..n] of integer;
i, h, k, c:integer;
priz:boolean;
begin clrscr;
randomize;
for i:=1 to n do
begin a[i]:=-10+random(20);
write(a[i], ' ');
end;
s[i]:=0;
while a[i]<>0 do
s[i]:=s[i]+a[i];
writeln(s[i], 'symma', i);
repeat dec(k);
priz:=true;
for i:=1 to k do
if s[i]>s[i+1] then
begin
c:=s[i];
s[i]:=s[i+1];
s[i+1]:=c;
priz:=false;
end;
until priz;
writeln(' ', s[i]);
readkey
end.


Но ответы какие то корявые, что изменить то надо или исправить??Помогите пжл...