Задание: Задана матрица A(4;4). Вычислить наибольшие элементы каждой строки матрицы. Результат получить в одномерном массиве В(4). Определить номер строки, в которой значение наибольшего элемента максимально.
program massive;
var A: array [1..100,1..100] of real;B: array [1..100] of real;
i,j,k:integer; max:real;
Begin
k:=0;
max:=-1000;
writeln('vvedi elementy');
for i:=1 to 4 do
for j:=1 to 4 do readln(A[i,j]); {ввод элементов}
for j:=1 to 4 do begin if A[1,j]>max then max:=A[1,j]; end;
B[1]:=max; max:=-1000;{ нахождение максимума в 1й строке }
for j:=1 to 4 do begin if A[2,j]>max then max:=A[2,j]; end;
B[2]:=max; max:=-1000;{ нахождение максимума в 2й строке }
for j:=1 to 4 do begin if A[3,j]>max then max:=A[3,j]; end;
B[3]:=max; max:=-1000;{ нахождение максимума в 3й строке }
for j:=1 to 4 do begin if A[4,j]>max then max:=A[4,j]; end;
B[4]:=max; max:=-1000;{нахождение максимума в 4й строке}
for i:=1 to 4 do
for j:=1 to 4 do begin if A[i,j]>max then k:=j;max:=A[i,j]; end;
writeln('строка макс элемента',' ',k);
for i:=1 to 4 do write(B[i],' ');
end.
Результат:
строка макс элемента 2
14 18 8 4
Блок-схема
Лабораторная работа №6
Задание:Дана действительная матрица А(6;6). Преобразовать матрицу по правилу: строку с номером n=3 сделать столбцом с номером n=3, а столбец с номером n=3 сделать строкой с номером n=3.
program massive;
var A: array [1..100,1..100] of real; i,j,n:integer; k:real;
Begin
k:=0;
writeln('введи n');
readln(n);
for i:=1 to n do
for j:=1 to n do A[i,j]:=random(10);
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(A[i,j]:5); end;
writeln;
i:=1; j:=1;
Repeat
k:=A[3,j]; A[3,j]:=A[i,3]; A[i,3]:=k;
i:=i+1; j:=j+1;
until i=7;
writeln;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(A[i,j]:5); end;
writeln;
end.
Результат:
3 8 4 6 0 7
0 3 5 4 5 6
6 8 3 8 8 4
6 9 9 4 4 3
3 6 5 5 3 9
0 2 0 9 2 6
| 3 8 6 6 0 7
0 3 8 4 5 6
4 5 3 9 5 0
6 9 8 4 4 3
3 6 8 5 3 9
0 2 4 9 2 6
|
Блок-схема