Блок-схема

Листинг программы на Pascal

program ABC;

const Nmass=10;

var A:array[1..Nmass,1..Nmass] of integer;

ZAMOK:boolean;

N,M,i,j,k,Imax,Jmax,p,Pmax: byte;

buf:integer;

begin

cls;

//ручной ввод массива

writeLn('Введите число элементов в массиве A');

readLn(N,M);

writeLn('Вводим элементы массива A:');

for i:=1 to N do

for j:=1 to M do

begin

write('A[',i,',',j,']=');

readLn(A[i,j]);

end;

//вывод массива до измененния

writeLn('Исходный массив A:');

for i:=1 to N do

begin

for j:=1 to M do

write(A[i,j]:5);

writeLn;

end;

// определение столбца, в котором больше положительных элементов

// подсчёт положительных в первом столбце

Pmax:=0;

for i:=1 to N do

if A[i,1]>0 then

Pmax:=Pmax+1;

// теперь, зная начальное значение Pmax,

// можем приступить к поиску максимума и

// k-номера столбца,

// содержащего наибольшее число положительных элементов

k:=1;

for j:=2 to M do

begin

p:=0;

for i:=1 to N do

if A[i,j]>0 then

p:=p+1;

if p>Pmax then

begin

Pmax:=p;

k:=j;

end;

end;

writeLn('больше всего положительных элементов в столбце номер ', k);

// теперь ищем максимум среди отрицательных в столбцах справа от k-й

if k<M then

begin

ZAMOK:=TRUE;

for j:=k+1 to M do

for i:=1 to N do

if A[i,j]<0 then

if ZAMOK then

begin

Imax:=i;

Jmax:=j;

ZAMOK:=FALSE;

end

else

if A[i,j]>A[imax, jmax] then

begin

Imax:=i;

Jmax:=j;

end;

if ZAMOK then

writeLn('справа от найденного столбца нет отрицательных элементов')

else

begin

buf:=A[1,1];

A[1,1]:=A[Imax,Jmax];

A[Imax,Jmax]:=buf;

end;

end

else

writeLn('справа от найденного столбца нет элементов');

//вывод массива поле измененния

writeLn;

writeLn('массив A после изменения:');

for i:=1 to N do

begin

for j:=1 to M do

write(A[i,j]:5);

writeLn;

end;

end.