@Архангел94

uses crt;
const q=6; p=4;
var a: array [1..q,1..p] of integer;
s: array [1..p] of integer;
i,j,jmax,max,buf,ns: integer;
begin
for i:=1 to q do
for j:=1 to p do
begin
write ('Введите ',j,' элемент ',i,' строки ');
readln (a[i,j]);
end;
for j:=1 to p do
s[j]:=0;
writeln;
writeln ('Исходный массив');
for i:=1 to q do
begin
for j:=1 to p do
begin
write (a[i,j]:5);
s[j]:=s[j]+a[i,j];
end;
writeln;
end;
max:=s[1];
jmax:=1;
writeln;
writeln ('Сумма элементов столбцов');
for j:=1 to p do
begin
write (s[j]:5);
if s[j]>max then
begin
max:=s[j];
jmax:=j;
end;
end;
writeln;
writeln ('Максимальное значение суммы, равное ',max,', в столбце ',jmax);
if jmax=p then
writeln ('Обмен невозможен, макисмальная сумма в последнем столбце') else
begin

for i:=1 to q do
begin
buf:=a[i,jmax];
a[i,jmax]:=a[i,p];
a[i,p]:=buf;
end;
writeln ('Массив после обмена');
for i:=1 to q do
begin
for j:=1 to p do
write (a[i,j]:5);
writeln;
end;
end;
writeln ('Введите строку, которую необходимо вывести на экран');
readln (ns);
writeln ('Строка под номером ',ns);
for j:=1 to p do
write (a[ns,j]:5);
writeln;
writeln ('Массив с обнуленной строкой');
for i:=1 to q do
begin
for j:=1 to p do
begin
a[ns,j]:=0;
write (a[i,j]:5);
end;
writeln;
end;
end.

Добавлено через 38 секунд
постройте пожалуйста блок схему

Добавлено через 1 час 56 минут
срочно нужно,помогите пожалуйста

0