Дан двумерный массив. Найти количество нечетных элементов, расположенных выше главной диагонали.ПОМОГИТЕ
Дан двумерный массив. Найти количество нечетных элементов, расположенных выше главной диагонали.ПОМОГИТЕ
Гость
Ответ(ы) на вопрос:
ГостьОсновная процедура
Count:=0;
For I:=1 to n do begin
For j:=1 to n do begin
If j>I then do
If a[i,j] mod 2<>0 then inc(count);
Endif;
Endif;
End;
End;
Гость// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var n:=ReadInteger('Задайте число строк/столбцов массива:');
var a:=MatrixRandom(n,n,-99,99);
Writeln('Исходный массив');
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
Writeln
end;
Write('Кол-во нечетных элементов выше главной диагонали: ');
var k:=0;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do
if Odd(a[i,j]) then Inc(k);
Writeln(k)
end.
Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
31 27 -90 -64 -75 22
12 11 79 6 -14 73
-66 -52 -97 -82 -50 47
-65 20 25 -7 -13 46
-31 -9 -69 47 81 2
-43 -68 95 -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6
Не нашли ответ?
Похожие вопросы