Ответ:
Объяснение:
const
n = 100;
var
a:array[1..n] of integer;
i, k:integer;
begin
k:=1;
for i:= 1 to n do begin
a[i]:=k;
if (i mod 2 = 0) then k:=k + 1;
end;
for i:= 1 to n do
write(a[i], ' ');
readln;
end.
Ну в общем то, просто выведет остаток от деления k/7, так как mod - отбрасывает целую часть числа.
1) Сначала лисенок переправляет на тот берег двух своих собратьев (2 захода);
2) В условии сказано, что ни лисица, ни волк не доверят своих детей другой матери, но про детей ничего не сказано, значит лисенок может переправить на тот берег волчат. Он переправляет трех волчат на тот берег(3 захода);
3) Потом Лисица переправляет своего последнего ребенка на берег. Таким образом, на другой берег уже переправлены все волчата и лисята;
4) Потом Лисица плывет за Волчихой и уже вдвоем они переправляются на тот берег.
Всё!
Var a:array of Integer; n,i,max,ind:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
ind:=0;
for i:=0 to Length(a) do
if abs(a[i])>abs(max) then
begin
max:=a[i];
ind:=i;
end;
n:=a[0];
a[0]:=max;
a[ind]:=n;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
<span>end.</span>
Ответ:
import random as r
s=[r.randint(1,100) for i in range(10)]
print(s)
m1=max(s)
s.remove(m1)
m2=max(s)
print(m1,m2)
Объяснение: