Pascalabc. дан массив целых чисел. переформировать элементы исходного массива, поставив перед всеми числами, равными максимальному среди элементов исходного массива номер по порядку встречае мости.
Var a,b,c:integer; d:array [1..100] of integer; begin randomize; for a:=1 to 15 do begin d[a]:=random(100); if d[a]<33 then writeln('элемент массива меньше 33 ==> ',d[a]) end; end.
Возможно, если двое подошли с одной стороны берега, а двое с другой. таким образом они поочерёдно переплывают с одного берега на другой. И лодка возвращается на от же причал откуда её и брали.
d:array [1..100] of integer;
begin
randomize;
for a:=1 to 15 do begin
d[a]:=random(100);
if d[a]<33 then writeln('элемент массива меньше 33 ==> ',d[a])
end;
end.
таким образом они поочерёдно переплывают с одного берега на другой. И лодка возвращается на от же причал откуда её и брали.