Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Ввести целочисленную матрицу {Aij}i=1..n,j=1..m. Найти столбец с наибольшей по абсолютной величине суммой элементов и заменить все элементы этого столбца числом -3333.
Блок схема

Просмотров: 275
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

program PascalGuru; uses crt; var A:array[1..100,1..100] of integer; B:array[1..100] of integer; i,j,n,m,summa,max:integer; {--------------------------------------------} begin write('N= '); readln (n); write('M= '); readln (m); writeln ('Vvedite elementy massiva A: '); for i:=1 to n do for j:=1 to m do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; clrscr; write ('Vot vvedennyi vami massiv A: '); for i:=1 to n do begin writeln; for j:=1 to m do write (A[i,j]:4,' '); end; summa:=0; for i:=1 to m do begin for j:=1 to n do summa:=summa+A[j,i]; B[i]:=abs(summa); summa:=0; end; max:=1; for j:=1 to m do if B[j]>B[max] then max:=j; for i:=1 to m do A[i,max]:=3333; writeln;writeln; write ('Vot obnovlennyi massiv A: '); for i:=1 to n do begin writeln; for j:=1 to m do write (A[i,j]:4,' '); end; readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.