Программа находит наибольшее отрицательное число из n чисел, так как рандом состоит из положительных и отр. чисел, не стал писать else. Код кривой, но рабочий :) program asd; USES crt; var a:array[1..100]of integer; i,n,max:integer; BEGIN clrscr; Writeln('Vvedite kol-vo chisel: '); Readln(n); for i:=1 to n do begin A[i]:=random(20)-10; Write(' ',A[i]); end; max:=A[1]; for i:=2 to n do begin if (A[i]<0) then begin if (A[i]<max) then max:=A[i] end; end; Writeln; Writeln('Maksimalnoe chislo pri A[i]<0 = ',max); END.
1) это шестеричная система счисления(т.к 6 знаком в алфавите). Основание с.с = 6 2)1001101(2)=77(10), 2 и 10 основание с.с они должны быть записаны в низу, сначала необходимо над цифрами расставить степень числа,начиная с справа на лева(т.е от знака равно) и начиная с 0-вой степени, здесь с 0 по 6-ю степень,затем начинаем решать 1*2^6+0*2^5+0*2^4+1*2^3+1*2^2+0*2^1^1*2^0=(возводим 2 в степень и умножаем на число,находим сумму) 64+0+0+8+4+0+1= 77 (умножали число на 2,т.к это основание с.с) 3) 0,1,2,3,4 4) 10F(16)= 271(10) 5) 8 (восьмеричная с.с) находите самую большую цифру (букву, имеющую цифровое значение) в записи числа. Эта величина + 1 и даст минимальное основание системы счисления, которое может представлять данная запись... 6) 173(8) = 123(10)
program asd;
USES crt;
var a:array[1..100]of integer;
i,n,max:integer;
BEGIN
clrscr;
Writeln('Vvedite kol-vo chisel: ');
Readln(n);
for i:=1 to n do
begin
A[i]:=random(20)-10;
Write(' ',A[i]);
end;
max:=A[1];
for i:=2 to n do
begin
if (A[i]<0) then
begin
if (A[i]<max) then max:=A[i]
end;
end;
Writeln;
Writeln('Maksimalnoe chislo pri A[i]<0 = ',max);
END.