Pascal
writeln (' : ') writeln (' : '), .
writeln (' '). readln (al [ i ]), . i N, .
, readln (a 2[ i ]).
:
Writeln (' : ');
for i:=l to n do readln(al [i]);
Writeln (' :');
for i:=l to n do readln(a2[i]);
. , i = l. : (al [ i ]> a 2[ i ]) (i <= N). , - . Ȼ (and). , , . (false), .
, , (i:= i + l).
: - , i > N, , , .
:
While (al[i]>a2[i]) and (i<=n) do i:=i+l;
if i > n then writeln (' ')
else writeln (' ');
.
for k:= n down to 1 do , , . (al [ i ]> al [ i + l ]), . . (B:= al [ i ]). (al [ i ]:= al [ i + l ]), .
for k:=n downto 1 do
for i:=1 to k-1 do
|
|
if al[i]>al[i+l] then begin B:=al[i]; al[i]:=al[i+l]; al[i+l]:=B; end;
write (al [ i ], ' ') - .
Writeln (' :');
for i:=l to n do write(al[i],' ');
Program Massiv;
uses crt;
const N=10;
var al, a2: array[l..n] of integer;
i, k, B: integer;
begin clrscr;
writeln (' :');
for i:=l to n do read(al[i]);
writeln (' :');
for i:=l to n do read(a2[i]);
i:=l;
while (al[i]>a2[i]) and (i<=n) do i:=i+l;
if i>n then writeln('Bce
')
else writeln ('
');
for k:=n downto 1 do
for i:=l to k-1 do
if al[i]>al[i+l] then begin B:=al[i]; al[i]:=al[i+l]; al[i+l]:=B; end;
writeln (' :');
for i:=l to n do write(al[i], ' ');
end.
.
3