Помогите составить программы с матрицами
1) Дана квадратная матрица целых чисел размером nхn. Вычислить скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы.
2) Дана матрица целых чисел размером nхm. Получить одномерный массив, элементы которого – минимальные элементы соответствующих столбцов исходной матрицы. Помогите пожалуйста! От этого зависит отчислят меня или нет(( |
№2
const n=5; var A: array[1..n,1..n] of integer; B: array[1..n] of integer; i,j: byte; min: integer; begin Randomize; for i:=1 to n do for j:=1 to n do A[i,j]:= Random(100)-50; for i:=1 to n do begin for j:=1 to n do Write(A[i,j]:5); Writeln; end; Writeln; j:=1; repeat min:= A[1,j]; for i:=2 to n do if A[i,j]< min then min:= A[i,j]; B[j]:= min; Inc(j); until j>n; for j:=1 to n do Write(B[j]:5); Readln; end. |
№1
const n=5; var A: array[1..n,1..n] of integer; max,min,SP: integer; i,j,maxj,mini: byte; begin SP:=0; Randomize; for i:=1 to n do for j:=1 to n do A[i,j]:= Random(10); max:= A[1,1]; maxj:=1; min:= A[1,1]; mini:=1; for i:=1 to N do begin for j:=1 to N do begin if A[i,j]>max then begin max:= A[i,j]; maxj:=j end; if A[i,j]<min then begin min:= A[i,j]; mini:=i end; end; end; for i:=1 to n do SP:= SP+A[i,maxj]*A[mini,i]; Writeln(' Скалярное произведение равно: ',SP); Readln; end. |
Часовой пояс GMT +4, время: 12:32. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.