Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Используем расширенное представление числа
![30_n=3\cdot n^1+0\cdot n^0=3n; 3n=18 \to n=6](https://tex.z-dn.net/?f=30_n%3D3%5Ccdot+n%5E1%2B0%5Ccdot+n%5E0%3D3n%3B+3n%3D18+%5Cto+n%3D6)
Ответ: основание системы счисления равно 6.
Ответ:
program Num2;
var
a, b: Integer;
begin
Randomize;
Write ('Исходные числа: ');
a := Random (10);
b := Random (10);
Write (a, ' ', b);
WriteLn;
if a < b then
WriteLn ('Меньшее число = ', a)
else if a > b then
WriteLn ('Меньшее число = ', b)
else
WriteLn ('Числа равны.');
ReadLn;
end.
var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.