Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 12
.pas Program praktika10;
Uses CRT;
Const n=5;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_max, v_min, max1, max2: Integer;
Begin
Randomize;
WriteLn('Задайте дипазон случайных чисел:');
Write('v_min=');
ReadLn(v_min);
Write('v_max=');
ReadLn(v_max);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
a[i,g]:=Random(v_max-v_min+1)+v_min;
End;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
max1:=a[1,1];
max2:=a[1,n];
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (i=g)
Then
Begin
If (a[i,g]>max1)
Then max1:=a[i,g];
End;
End;
End;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (g=n-i+1)
Then
Begin
If (a[i,g]>max2)
Then max2:=a[i,g];
End;
End;
End;
WriteLn;
WriteLn('максимальный элемент главной диагонали = ', max1);
WriteLn;
WriteLn('максимальный элемент побочной диагонали = ', max2);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (i=g)
Then
Begin
If (a[i,g]=max1)
Then a[i,g]:=max2;
End;
If (g=n-i+1)
Then
Begin
If (a[i,g]=max2)
Then a[i,g]:=max1;
End;
End;
End;
WriteLn;
WriteLn('Выходной массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
ReadLn;
End.
Uses CRT;
Const n=5;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_max, v_min, max1, max2: Integer;
Begin
Randomize;
WriteLn('Задайте дипазон случайных чисел:');
Write('v_min=');
ReadLn(v_min);
Write('v_max=');
ReadLn(v_max);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
a[i,g]:=Random(v_max-v_min+1)+v_min;
End;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
max1:=a[1,1];
max2:=a[1,n];
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (i=g)
Then
Begin
If (a[i,g]>max1)
Then max1:=a[i,g];
End;
End;
End;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (g=n-i+1)
Then
Begin
If (a[i,g]>max2)
Then max2:=a[i,g];
End;
End;
End;
WriteLn;
WriteLn('максимальный элемент главной диагонали = ', max1);
WriteLn;
WriteLn('максимальный элемент побочной диагонали = ', max2);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (i=g)
Then
Begin
If (a[i,g]=max1)
Then a[i,g]:=max2;
End;
If (g=n-i+1)
Then
Begin
If (a[i,g]=max2)
Then a[i,g]:=max1;
End;
End;
End;
WriteLn;
WriteLn('Выходной массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
ReadLn;
End.