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

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

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

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

РЕШЕНИЕ:

program PascalGuru; uses crt; var A:array[1..100,1..100] of integer; B:array[1..100] of integer; i,j,n,m,s,min: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; for i:=1 to m do begin s:=1; for j:=2 to n do if A[j,i]>A[s,i] then A[s,i]:=A[j,i]; B[i]:=A[s,i]; end; min:=B[1]; for j:=2 to m do if B[j]<min then min:=B[j]; writeln;writeln; writeln('MIN: ',min); readln; end.
нажми на эту область и скопируй решение


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