Var
a: array[1..4,1..4]of integer;
i,j,max: integer;
begin
max:=-MaxInt;
for i := 1 to 4 do
for j:=1 to 4 do
begin
read(a[i,j]);
if (i=j) and (a[i,j]>max) then max:=a[i,j];
end;
writeln('max = ',max);
<span>end.
abs pascal</span>
К примеру a,b,c - размеры рации
d,e,f - чемодана
размеры упорядочены по возрастанию(УПОРЯДОЧЬ!)
тогда если a>=d and b>=e and c>=f
не Помещается
иначе да
просто с телефона каким-то образом обрезалось всё что я писал
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
Var z,x:real;
begin
readln(x);
z:=cos(1/sqrt(2*x));
writeln(z:0:3);
<span>end.</span>