fynt писал(а):Source of the post
У меня вопросик: a что возникает при выполнении этой программы?
Код: Выбрать все
Const N = 10; H = 8;
Var Mass : Array [1..N, 1..H] of Integer;
x, y, Max, IndX, IndY, Temp : Integer;
Begin
// Заполнение матрицы
Randomize;
For y := 1 To H Do
Begin
For x := 1 To N Do
Begin
Mass[x,y] := Random(90) + 10;
Write(Mass[x,y],' ');
End;
Writeln;
End;
// Поиск максимального элемента и его индекса.
Max := Mass[1,1];
For y := 1 To H Do
For x := 1 To N Do
If Mass[x,y] > Max Then
Begin
Max := Mass[x,y];
IndX := x; IndY := y;
End;
// Выведем: макс. элемент и его индексы.
Writeln;
Writeln(Max, ' ', 'x = ',IndX, ' y = ', IndY);
// Перестановка строки
For x := 1 To N Do
Begin
Temp := Mass[x,1]; Mass[x,1] := Mass[x, IndY];
Mass[x, IndY] := Temp;
End;
// Перестановка столбца
For y := 1 To H Do
Begin
Temp := Mass[1,y]; Mass[1,y] := Mass[IndX, y];
Mass[IndX, y] := Temp;
End;
Writeln;
// Вывод получившегося массива на экран
For y := 1 To H Do
Begin
For x := 1 To N Do Write(Mass[x,y],' ');
Writeln;
End;
Readln;
End.
He-a, требует тип boolean..if Length(S1)=0 then..