Построить одномерный массив, состоящий из произведений элементов столбцов матрицы

@Aristocrat · Регистрация: 24.10.2014

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

Дана матрица 20 на 15, заполненная случайными числами. Построить Одномерный массив состоящий из произведений элементов столбцов. Посчитать сумма одномерного массива. Найти максимальный элемент в одномерном массиве.
Буду очень признателен, а еще больше признателен, если буду с комментариями..

@CodeR · 11.11.2014, 11:29

Pascal

Const n=15;m=20;
Var A:array[1..n,1..m] of integer;
    B:array[1..m] of longint;
    i,j,sum,max:longint;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(10)-5;
        write(A[i,j]:3);
      End;
      writeln;
    End;
    writeln('Массив произведений');
    For j:=1 to m do
    Begin
      B[j]:=A[1,j];
      For i:=2 to n do
       B[j]:=B[j]*A[i,j];
      write(B[j],' ');
      sum:=sum+B[i];
    End;
    writeln;
    max:=B[1];
    For i:=2 to m do
     if B[i]>max then max:=B[i];
    writeln('Сумма = ',sum);
    writeln('Max = ',max);
    readln;
End.

@Aristocrat · 11.11.2014, 18:26 **[ТС]**

Вы лучший! вы мой спаситель, спасибо вам огромное!

@Aristocrat 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 18
		1
	Построить одномерный массив, состоящий из произведений элементов столбцов матрицы 10.11.2014, 19:37. Показов 2153. Ответов 2 Метки нет (Все метки) Дана матрица 20 на 15, заполненная случайными числами. Построить Одномерный массив состоящий из произведений элементов столбцов. Посчитать сумма одномерного массива. Найти максимальный элемент в одномерном массиве. Буду очень признателен, а еще больше признателен, если буду с комментариями.. 0

@Aristocrat 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 18
	11.11.2014, 18:26 [ТС]	3
	Вы лучший! вы мой спаситель, спасибо вам огромное! 0

Построить одномерный массив, состоящий из произведений элементов столбцов матрицы

Решение