Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетн

@Чижова · Регистрация: 24.12.2016

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

Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетных положительны элементов.

Умоляю, помогите!

@Tosse · 14.01.2017, 09:34

Pascal

const
m = 2;
n = 18;
var
a:array[1..n,1..m] of integer;
i,j, k, sum, mins: integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(18) - 9;
        write(a[i,j]:2);
        end;
    writeln;
    end;
sum:=0;
for i:=2 to n do
    for j:=m - i + 2 to m do
        sum:=sum + a[i,j];
writeln('Сумма элементов ниже побочной диагонали = ',sum);
k:=0;
for i:=1 to n do
    for j:=1 to m do
        if odd(a[i,j]) and (a[i,j] > 0) then
            inc(k);
writeln('Количество нечетных положительных элементов = ',k);
writeln;
end.

@Чижова 0 / 0 / 0 Регистрация: 24.12.2016 Сообщений: 44
		1
	Дана целочисленная матрица размерностью 182.Найти сумму элементов ниже побочной диагонали; количество нечетн 12.01.2017, 22:57. Показов* 1219. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетных положительны элементов. Умоляю, помогите! 0

	14.01.2017, 09:34

Опции темы

Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетн

Решение