что-то типа этого:
const n = 8, m = 8;
var
A: array[1..n,1..m] of integer;
i, j, sum, product: integer;
isnotnull: boolean;
begin
randomize;
writeln('Случайная матрица:'); for i:=1 to n do begin
for j:=1 to m do begin
A[i,j] := random(51) - 25;
write(A[i,j]:5);
end;
writeln;
end; sum := 0;
for i:=1 to n do
if A[i,n-i+1] < 0 then
sum := sum + A[i,n-i+1];
writeln('Сумма отрицательных элементов побочной диагонали = ', sum); product := 1;
isnotnull := False;
for i:=1 to n-1 do
for j:=2 to n do
if (j > i) and (A[i,j] <> 0) then begin
isnotnull := True;
product := product * A[i,j];
end;
if isnotnull
writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
else
writeln('Ненулевых элементов в области выше главной диагонали нет.', product); readln;
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(ReadInteger('n='),-10,10); a.Println;
a:=a.Select((x,i)->i mod 2=0?x+1:x-1).ToArray; a.Println
end.
Пример
n= 10
-9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659
-8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659