Program Task; Const N = 5; max = 25; Var a: Array [1..N, 1..N] of Integer; i, j, ir, jr: Integer; Begin Randomize; For i := 1 To N Do For j := 1 To N Do a[i, j] := Random(max * 2) - max + 1; WriteLn('Матрица: '); For i := 1 To N Do Begin For j := 1 To N Do Write(a[i, j], ' '); WriteLn; End;a[i, j] := Random(50) - 25; ir := 1; jr := 1; For i := 1 To N Do For j := 1 To N Do If a[i, j] < a[ir, jr] Then Begin ir := i; jr := j; End; WriteLn('Столбец минимального элемента: ', jr); ReadLn; End.
Ао условию, у тебя два шкафа, в каждом из которых 128 полок, и в этих полках 4 единицы (во всех 128), значит в обоих шкафах 8 единиц, отсюда следует: Максимальное кол-во единиц при 126 полках с нулями и 2 полками с единицами (1111000v000111=1111111 и 0000000v1000000=1000000) т..е. в 3 шкафу будет 126 полок с нулями и 2 полки с 8 единицами. Минимальное кол-во при 127 полками нулей и 1 полкой единиц (1111000v1111000=1111000) т.е. в 3м шкафу будет 127 полок с нулями и 1 полка с 4 единицами. Значит максимум 8 единиц, а минимум 4
Const N = 5; max = 25;
Var a: Array [1..N, 1..N] of Integer;
i, j, ir, jr: Integer;
Begin
Randomize;
For i := 1 To N Do
For j := 1 To N Do
a[i, j] := Random(max * 2) - max + 1;
WriteLn('Матрица: ');
For i := 1 To N Do
Begin
For j := 1 To N Do
Write(a[i, j], ' ');
WriteLn;
End;a[i, j] := Random(50) - 25;
ir := 1;
jr := 1;
For i := 1 To N Do
For j := 1 To N Do
If a[i, j] < a[ir, jr] Then
Begin
ir := i;
jr := j;
End;
WriteLn('Столбец минимального элемента: ', jr);
ReadLn;
End.