Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
N*323.
Адрес &arr[i][j][k][l] получается из адреса &arr[0][0][0][0] = &arr[0][0][0] = &arr[0][0] = &arr[0] = &arr[0] путем прибавления (5 * 2 * 7 * i + 2 * 7 * j + 7 * k + l) * N = (70i + 14j + 7k + l) * N байт
Тогда &arr[9][4][0][1] = &arr + 687N байт, &arr[5][1] = &arr + 364N байт, разность (687 - 364) N = 323N
Не очень понимаю, что от меня требуется
Ну что бы не распускалась ткань когда её транспортируют и т.д.
Дай поесть и напои и скажи иди