Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы

@Аня Гордеева · Регистрация: 19.01.2013

Студворк — интернет-сервис помощи студентам

Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы i го столбца и i ой строки меньше 1, иначе xi=1. найти также произведение всех элементов матрицы

@CodeR · 22.01.2013, 08:15

Pascal

Var A:array[1..20,1..20] of integer;
    X:array[1..20] of byte;
    i,j,n:byte;
    pr:longint;
Begin
    write('Введите N: ');readln(n);
    pr:=1;
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        pr:=pr*A[i,j];
      End;
      if A[i,i]<1 then X[i]:=0 
       else X[i]:=1;
      writeln;
    End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(X[i]:2);
    writeln;
    writeln('Произведение матрицы = ',pr);
    readln;
End.

@Аня Гордеева 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 18
		1
	Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы 21.01.2013, 18:46. Показов 5309. Ответов 1 Метки нет (Все метки) Дана матрица n*n. Получить массив x1,x2...xn по правилу xi=0, если все элементы i го столбца и i ой строки меньше 1, иначе xi=1. найти также произведение всех элементов матрицы 0

Опции темы

Двумерный массив.Получить массив x1,x2.xn по правилу xi=0. Найти также произведение всех элементов матрицы

Решение