НАЧАЛО
||
\/
/ Ввод чисел a, b /
||
\/
/ \ Да
< a < b? > =======>/ Вывод a /
\ / ||
|| Нет ||
\/ \/
/ Вывод b / =========> КОНЕЦ
Const
n=10;m=8;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of integer;
i,j,min:integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
end;
writeln;
for j:=1 to m do
begin
min:=a[i,1];
for i:=1 to n do
if a[i,j]<min then
min:=a[i,j];
b[j]:=min;
end;
for i:=1 to m do
write(b[i]:4);
end.
var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.
111001 = 57
1010101101 = 685
1111100 = 124
136 = 10001000
87 = 1010111
95 = 1011111
1027 = 10000000011