Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231
На сколько информация доступна пользователю и на сколько она ему понятна
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.
Ответ:
Таблица находится во вложениях