РЕШЕНИЕ НЕОБХОДИМО КАК КИСЛОРОД !!!!!!!!!!ПОЖАЛУЙСТА,паскаль Ввести квадратную матрицу порядка n. Вычислить произведение элементов, расположенных на главной диагонали. Сформировать одномерный массив из элементов исходной матри...
РЕШЕНИЕ НЕОБХОДИМО КАК КИСЛОРОД !!!!!!!!!!ПОЖАЛУЙСТА,паскаль
Ввести квадратную матрицу порядка n. Вычислить произведение элементов, расположенных на главной диагонали. Сформировать одномерный массив из элементов исходной матрицы, расположенных ниже главной диагонали и больших произведения ее элементов. Вывести полученный массив или сообщение об отсутствии таких элементов
Гость
Ответ(ы) на вопрос:
ГостьProgram Diagonal;
uses Crt;
const n = 5;
Type Mas = array [1..n, 1..n] of integer;
Vec = array [1..n*n] of integer;
var A: Mas;
V: Vec;
i, j , k: integer;
p : longint;
begin
ClrScr;
Randomize;
p:=1;
WriteLn('Massiv A:');
for i:=1 to n do
begin
for j:= 1 to n do
begin
A[i, j]:= 1+random (9);
p:=p*A[i,i];
Write(A[i, j]:4);
end;
WriteLn; WriteLn;
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
if (A[i,j]>p) and (j
Не нашли ответ?
Похожие вопросы