что-то типа этого:
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.
4 принтер
5 экран
6 Постоянное запоминающее устройство
7 оперативная память
8 Windows 1.0 получило имя «Windows» ввиду того, что одной из основных ее особенностей была возможность переключаться между несколькими окнами графического пользовательского интерфейса.
9 служит для открывания документов, запуска программ, вызова меню ПУСК. Для этого нужно навести курсор на нужный объект и щелкнуть по левой кнопки мыши один или два раза(двойной щелчок).
10 рабочий стол
11 включение компьютера
12 все диски хранящиеся на компьютере
13 контекстного меню выделенного элемента. На большинстве клавиатур для вызова контекстного меню существует специальная клавиша
