Вообще вся задача звучала так:
В одномерном массиве, состоящем из вещественных элементов вычислить:
1) максимальный элемент массива;
2) сумму элементов массива, расположенных до последнего положительного элемента.
Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b].
А вот её решение:
Код
uses crt;
var a: array [1..100,1..100] of integer;
b: array [1..100] of integer;
i,j,n,s: integer;
summ, min, ukaz: integer;
begin
{************************Заполнение матрицы******************}
randomize;
clrscr;
writeln('Введите размерность матрицы->');
readln(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j] := random(10)-5;
write (a[i,j]:2,' ');
end;
writeln;
b[i]:= 0; min:=a[1,1];
end;
{************************Сумма в столбцах********************}
ukaz:=0;
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
if A[i,j] >= 0 then inc(s, A[i,j])
else
begin
s:=-1;
ukaz:=ukaz+1;
break
end;
if s >= 0 then writeLn(' Сумма в неотрицательном столбце-> ', s) else
if ukaz=n then writeln('Положительных столбцов в матрице нет');
end;
{************************Сумма выше диагоноли****************}
writeln;
writeln('Суммы диагоналей выше побочной диагонали(по модулю):');
For j:=1 to n-1 do
Begin
summ := 0;
For i:=1 to n-j do
summ := summ + abs(a[i,n-j-i+1]);
b[j] := summ;
if abs(b[j])<min then min:=abs(b[j]);
write(b[j],' ');
end;
{*************************Сумма ниже диагоноли***************}
writeln; writeln;
writeln('Суммы диагоналей ниже побочной диагонали(по модулю):');
For j:=2 to n do
Begin
summ := 0;
For i:=j to n do
summ := summ + abs(a[i,n-i+j]);
b[j+n-2] := summ;
if abs(b[j+n-2])<min then min:=abs(b[j+n-2]);
write(b[j+n-2],' ');
end;
writeln;
{*************************Нахождение минимальной суммы по модулю**}
{ For i:=1 to 2*n-2 do
Begin
end; }
writeln;
writeln('Минимум среди сумм модулей элементов диагоналей, параллельных побочной->',abs(min));
readkey;
end.
Всем спасибо!