Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы

@Barch · Регистрация: 09.04.2013

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

Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы предусмотреть ввод с клавиатуры или с помощью датчика случайных чисел. Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы.

@CodeR · 10.04.2013, 12:50

Pascal

Var A:array[1..20,1..20] of real;
    i,j,n:byte;
    pr:real;
Begin
    write('Введите n: ');readln(n);
    pr:=1;
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:8:2);
        pr:=pr*A[i,j];
      End;
      writeln;
    End;
    For i:=1 to n do
     A[i,i]:=pr;
    For i:=1 to n do
     A[i,n-i+1]:=pr;
    writeln('Произведение = ',pr:0:2);
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:8:2);
      writeln;
    End;
    readln;
End.

@Barch · 10.04.2013, 14:17 **[ТС]**

Спасибо большое

@Barch 0 / 0 / 0 Регистрация: 09.04.2013 Сообщений: 5
		1
	Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы 10.04.2013, 00:15. Показов 1622. Ответов 2 Метки нет (Все метки) Заданна матрица размером NxM состоящая из действительных элементов.Для задания исходной матрицы предусмотреть ввод с клавиатуры или с помощью датчика случайных чисел. Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы. 0

@Barch 0 / 0 / 0 Регистрация: 09.04.2013 Сообщений: 5
	10.04.2013, 14:17 [ТС]	3
	Спасибо большое 0

Опции темы

Найти произведение всех ее элементов и заменить ими элементы главной и побочной диагонали матрицы

Решение