Найти количество нечетных чисел, лежащих выше главной диагонали матрицы

@alinamarkuzova · Регистрация: 13.10.2021

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

Задается двумерный массив размера N*N. Заполнить массив случайными
числами и подсчитать (методом пошаговой детализации):
Количество нечетных чисел, лежащих выше главной диагонали

Добавлено через 1 минуту
Спасибо

@DivineBoss · 19.10.2021, 13:46

Pascal

var
  N : integer;
  a : array[,] of integer;
  i, j : integer;
  count : integer = 0;
begin
  
  writeln('N = ');
  readln(N);
  
  a := new integer[N,N];
  
  for i := 0 to N-1 do
    for j := 0 to N-1 do
      a[i,j] := random(10);
  
  writeln('Исходный массив:');
  for i := 0 to N-1 do begin
    for j := 0 to N-1 do
      write($'{a[i,j]} ');
    writeln();
  end;
  
  for i := 0 to N-1 do
    for j := i + 1 to N-1 do 
      if(a[i,j] mod 2 = 1) then count += 1; 
  
  writeln($'Кол-во нечетных чисел выше главной диагонали = {count}');
end.

@XzzzX · 19.10.2021, 18:36

Pascal

##
var n:= readlninteger('n =');
var a:= matrrandom(n, n, -10, 10);
var count:= 0;
for var i:= 0 to n-1 do
  for var j:= i+1 to n-1 do
    if a[i, j].IsOdd then
      count+= 1;
  
count.print;

@alinamarkuzova 0 / 0 / 0 Регистрация: 13.10.2021 Сообщений: 5
		1
	Найти количество нечетных чисел, лежащих выше главной диагонали матрицы 19.10.2021, 10:30. Показов 561. Ответов 2 Метки Pascal (Паскаль), pascal abc net (Все метки) Задается двумерный массив размера NN. Заполнить массив случайными числами и подсчитать (методом пошаговой детализации): Количество нечетных чисел, лежащих выше главной диагонали Добавлено через 1 минуту* Спасибо 0

	19.10.2021, 18:36