Program massive;
varI : integer;number : array [1..3] of integer;
beginnumber[1] := 100;number[2] := 103;number[3] := 106;for I := 1 to 3 dobeginwriteln(number[I]);end;
end.
На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
1)5 поскольку формула 2^n=i
n - степень
i - число ,в данном случае 32 .
Ну и подставляет и решаем
2) ну , опятьже по той же формуле получаем что 2 больше.
Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.
P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)