Полный текст программы:
var a: array[1..50] of Integer;
i,x,imax,j,n: Integer;
begin
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
end.
STRING строковый, CHAR символьный...
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(4).Min)
end.
<u>Пример</u>
4 5 6 7
4
1) (0&1)&1 = 0&1 = 0
2) 1&1&1&1 = 1
3) ((1&1) v 0) & (0 v 1) = (1 v 0) & (0 v 1) = 1 & 1 = 1
3 квітки з кожної сторони = 12 квіток
Іпо 4 кутам по 1 квітці, тобто 1 кутова квітка буде відноситись до кожної-стороні.
Я виклав своє рішення, але краще подумати самому