1. Таблица истинности - в прилагаемом файле.
2.
var x,y:real;
begin
writeln('x, y:');
readln(x,y);
writeln((x<0)and(y>0));
end.
Пример:
x, y:
-3 2
True
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
11011111.01000111101+<span>110101011.10001100010
</span>1110110011.01100001011+<span>1110001011.01000001011
</span>как то так, В это <span>Шестнадцатиричная</span>
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
function sum: integer;
var
tmp, prev, cur, s, i: integer;
flg: boolean;
begin
s := 0;
for i := 1 to n do
begin
flg := true;
tmp := a[i];
prev := 9;
cur := 0;
while tmp > 0 do
begin
cur := tmp mod 10;
if cur > prev then
begin
flg := false;
break;
end;
prev := cur;
tmp := tmp div 10;
end;
if flg then inc(s);
end;
sum := s;
end;
begin
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(1000);
write(a[i], ' ');
end;
writeln;
writeln('Ответ: ', sum);
end.
F(16)=1111(2)
1(16)=0001(2)
0(16)=0000(2)
9(16)=1001(2)
B(16)=1011(2)
1111 0001 0000 1001 1011 1011
делить на тройки надо с правого края
111 100 010 000 100 110 111 011
каждую тройку перевести в десятичное число
111(2)=1*2^0+1*2^1+1*2^2=7(8)
100(2)=4(8)
010(2)=2(8)
000(2)=0(8)
100(2)=4(8)
110(2)=6(8)
111(20=7(8)
011(2)=3(8)
Ответ 74204673(8)