Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Двумерные массивы

Автор: takewu 2.12.2009, 01:35

Очень прошу помощи! Или хотябы примера в нахождении((
Дана целочисленная прямоугольная матрица. Определить:
1.количество нулевых элементов;
2.сумму элементов в тех столбцах, которые содержат хотя бы один положительный элемент.
3.сложить две матрицы

Автор: amsoft 2.12.2009, 08:27

1. Вот так работают с массивами:

Код


var
MyArray: array [0..9,0..9] of integer;
X,Y,Cty: integer;
begin
Cty := 0;
for X := 0 to 9 do
    for Y := 0 to 9 do
        if MyArray[X,Y] = 0 then Inc(Cty);
ShowMessage('Кол-во нулевых элементов ' + IntToStr(Cty));
end;

2. Только подскажу:
пробегай по всем столбцам массива в цикле, если один из элементов > 0, то заново проходи по этому столбцу, суммируя элементы. Если нужна общая сумма подобных столбцов, то значения элементов собирай в одну переменную, если надо вывести отдельно суммы по каждому столбцу - вводи массив, и в него записывай суммы.

3. Проще простого:
пробегись в цикле по массивам (см образец с первого пункта) и складывай элементы:

Код


MyArray1[X,Y] = MyArray1[X,Y] + MyArray2[X,Y];

Автор: takewu 2.12.2009, 11:12

Спасибо, буду думать