Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
4, там через тире написано
истинность это верный/неверный?если так то верный
24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
<u>8 8 8 0</u>
Белым снегом замело
Луг и лес кругом.
И, затихнув, речка стала, <span>Скованная льдом.</span>Наступили холода.
Обернулась в лед вода.
Длинноухий зайка серый
Обернулся зайкой белым.
Перестал медведь реветь:
В спячку впал
В бору медведь.
Кто скажет, кто знает, <span>Когда это бывает?
</span><span>Хоть сама
- И снег, и лёд,
а уходит слёзы льёт.
</span>После осени пришла.
И сугробы намела.
<span>Я тепла не потерплю:
Закручу метели,
Все поляны побелю,
Разукрашу ели,
Замету снежком дома,
Потому что я ...
</span><span>Блеснул мороз. И рады мы
Проказам матушки ...
</span>