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

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

составить программу (с использованием подпрограмм с параметрами), обеспечивающую:
1. Ввод массива F(5,8)
2. Формирование одномерного массива А, состоящего из наибольших элементов каждого столбца массива F
3. Поиск минимального элемента в массиве А
4. Вывод результата в виде:
F11= 'f11' F21= 'f21'...F51= 'f51' A1='a1'
F12= 'f12' F22= 'f22'...F52= 'f52' A2='a2'
..........................................
F18= 'f18' F28= 'f28'...F58= 'f58' A2='a8'

Amin= 'A' (индекс минимального элемента ) = ( значение минимального элемента )

Просмотров: 950
Объяснение: -

РЕШЕНИЕ:

Program PascalGuru; uses crt; var F:array[1..5,1..8] of integer; A:array[1..8] of integer; i,j,m,n: integer; procedure reading(m,n:integer); var i,j: integer; begin for i:=1 to m do for j:=1 to n do begin write ('F[',i,',',j,']='); readln (F[i,j]); end; writeln; end; procedure recA(m,n:integer); var i,j,s: integer; begin for j:=1 to n do begin s:=1; for i:=2 to m do if F[i,j]>F[s,j] then s:=i; A[j]:=F[s,j]; end; end; procedure minA(m,n:integer); var i,j,z,min: integer; begin min:=A[1]; for j:=2 to n do if min>A[j] then begin min:=A[j]; z:=j; end; writeln;writeln; writeln('Amin = A[',z,']=',min); end; {-------ОСНОВНАЯ программа------------} begin m:=5; n:=8; reading(m,n); recA(m,n); clrscr; writeln('Vot vvedennaia Matrica "F":'); for i:=1 to m do begin writeln; for j:=1 to n do write (F[i,j]:3,' '); end; writeln;writeln;writeln;write('A: '); for i:=1 to n do write(A[i]:3,' '); minA(m,n); readln; end.

нажми на эту область и скопируй решение


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