Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
110001, 61, 49, 31
1010011, 123, 83, 53
11011000, 330, 216, D8
1101011110, 1536, 832, 35E
Var p: array[1..12] of integer;
begin
var min: integer;
var max: integer;
randomize;
for var i := 1 to 12 do p[i] := random(100);
min := p[1];
max := p[1];
for var i:= 1 to 12 do if p[i] < min then min := p[i];
for var i:= 1 to 12 do if p[i] > max then max := p[i];
writeln(max/min);
end.
Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4