567(10) = 5*10^2+6*10^1+7*10^0
94.53(10) = 9*10^1+4*10^0+5*10^(-1)+3*10^(-2)
110.101(2) = 1*2^2+1*2^1+0*2^0+1*2^(-1)+0*2^(-2)+1*2^(-3)
11101(2) = 1*2^4+1*2^3+1*2^2+0*2^1+1*2^0
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var im:=a.IndexMax;
Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]);
end.
<u>Пример</u>
n= 13
11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4
Номер максимального элемента- 4, значение 46
Главное иметь видеокарту которая может поддерживать два монитора
На паскале:
program zz;
var a,b,i,n: integer;
begin
n:=5;
write('A='); readln(A);
write('B='); readln(B);
for i:=1 to n do
begin
A:=A+1;
B:=B*2;
end;
writeln('A=', A);
writeln('B=', B);
end.