Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов

@vladi7lav · Регистрация: 18.06.2014

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

2. Дан двумерный массив размером 5 x 6. Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов соответствующей строки.

@JokeR.BY · 23.04.2015, 02:10

Pascal

const
    n = 5;
    m = 6;
var
    a: Array[1..n, 1..m] Of ShortInt;
    b: Array[1..n] Of Integer;
    i: 1..n;
    j: 1..m;
begin
    Randomize;
    for i := 1 to n do
    begin
        b[i] := 0;
        for j := 1 to m do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:4);
            if ((a[i, j] < 0) And Odd(a[i, j]))
            then
                Inc(b[i], a[i, j]);
        end;
        WriteLn;
    end;
    WriteLn; WriteLn;
    for i := 1 to n do
        Write(b[i], ' ');
end.

@vladi7lav 0 / 0 / 0 Регистрация: 18.06.2014 Сообщений: 16
		1
	Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов 22.04.2015, 22:56. Показов 1858. Ответов 1 Метки нет (Все метки) 2. Дан двумерный массив размером 5 x 6. Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов соответствующей строки. 0

	23.04.2015, 02:10

Опции темы

Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов

Решение