Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
19
Добавлен:
04.06.2015
Размер:
2.13 Кб
Скачать
Program praktika6;
Uses CRT;
Const n=5;
m=4;
Var a: Array [1..n,1..m] Of Integer;
i, g, v_min, v_max, min, max, min2, max2, n_max2_i, n_max2_g, n_min2_i, n_min2_g: 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 m 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 m Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
min:=a[1,1];
max:=a[1,1];
min2:=a[1,2];
max2:=a[1,2];
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
If (a[i,g]>max)
Then max:=a[i,g];
IF (a[i,g]<min)
Then min:=a[i,g];
End;
End;
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
If ((a[i,g]>max2) and (a[i,g]<max))
Then
Begin
max2:=a[i,g];
n_max2_i:=i;
n_max2_g:=g;
End;
If ((a[i,g]<min2) and (a[i,g]>min))
Then
Begin
min2:=a[i,g];
n_min2_i:=i;
n_min2_g:=g;
End;
End;
End;
WriteLn;
WriteLn('второй максимум = ', max2,' строка ', n_max2_i,' столбец ', n_max2_g);
WriteLn;
WriteLn('второй минимум = ', min2,' строка ', n_min2_i,' столбец ', n_min2_g);
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
If ((i=n_max2_i) and (g=n_max2_g))
Then a[i,g]:=min2;
If ((i=n_min2_i) and (g=n_min2_g))
Then a[i,g]:=max2;
End;
End;
WriteLn;
WriteLn('Выходной массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
ReadLn;
End.



Соседние файлы в папке Информатика Практика