Массивы

← →
Начинающий програмер (2003-04-07 18:49) [0]

Здавствуйте!
Помогите мне решить такую проблему: надо в двумерном массиве случайных чисел вычислить произведение элементов столбцов и записать их в одномерный массив.Надеюсь на ВАШУ помощь! спасибо.

← →
Юрий Зотов (2003-04-07 21:35) [1]

const
M = 10; // Кол-во строк
N = 20; // Кол-во столбцов

var
Ar2: array[1..M, 1..N] of integer; // Исходный массив
Ar: array[1..N] of double; // Массив произведений
i, j: integer;

begin
// Заполняем исходный массив
Randomize;
for i := 1 to M do
for j := 1 to N do
Ar2[i, j] := Random(20);
// Заполняем массив произведений
for j := 1 to N do
begin
Ar[j] := 1;
for i := 1 to M do
Ar[j] := Ar[j] * Ar2[i, j]
end;
end;

← →
начинающий програмер (2003-04-07 21:50) [2]

Спасибо, Юрий Зотов!
Если не сложно, то дайте ещё несколько вариантов решения. Професора иногда требуют несколькими способами.

← →
Плохой человек (2003-04-07 21:54) [3]

>Если не сложно, то дайте ещё несколько вариантов решения. Професора иногда требуют несколькими способами.

Я плакалъ.

← →
Palladin (2003-04-07 22:49) [4]

"Дай негру палец, он возьмет всю руку" (С) Марк Твен "Приключения Гекельбери Финна"

← →
Юрий Зотов (2003-04-07 23:50) [5]

> начинающий програмер © (07.04.03 21:50)

Не дам. Потому что не хочу, чтобы начинающий программер превратился в законченного захребетника (или уже поздно?).

Один вариант у Вас есть. Разберитесь в нем, тогда остальные варианты напишете сами. Или не напишете... ну, что ж, тоже не беда - не всем же быть программистами.

← →
Palladin (2003-04-08 00:08) [6]

> Юрий Зотов © (07.04.03 23:50)

по моему уже поздно
если бы звучало как " Учителя иногда требуют несколькими способами", может еще что то можно было бы исправить. Но здесь уже профессора.

← →
Думкин (2003-04-08 05:54) [7]

Клиника. Я таких резал - безжалостно. В данном вопросе и один ответ много, к тому же: а что есть столбец, а что строка.
Иди парень дворником, пока не поздно. Или депутатом.

Массивы Найти похожие ветки