Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
04.06.2015
Размер:
998 б
Скачать
Program praktika29;
Uses CRT;
Const n=4;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_max, v_min, c: 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;
For i:= 2 to n Do
Begin
For g:= 1 to i-1 Do
Begin
c:=a[i,g];
a[i,g]:=a[g,i];
a[g,i]:=c;
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.

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