дана целая матрица (N,N). Составить программу подсчёта количества нечётных элементов, расположенных выше побочной диагонали.

@paraphin · Регистрация: 09.12.2009

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

@Inadequate · 09.12.2009, 02:37

Pascal

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,c:integer;
begin
  clrscr;
  c:=0;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      if not odd(a[i,j]) and (i<=n-1) and (j<=n-i) then
        inc(c);
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ÷åòíûå}
  writeln('×åòíûõ: ',c)
end.

@paraphin 1 / 1 / 0 Регистрация: 09.12.2009 Сообщений: 51
		1
	дана целая матрица (N,N). Составить программу подсчёта количества нечётных элементов, расположенных выше побочной диагонали. 09.12.2009, 02:02. Показов 1116. Ответов 1 Метки нет (Все метки) дана целая матрица (N,N). Составить программу подсчёта количества нечётных элементов, расположенных выше побочной диагонали. 0

	09.12.2009, 02:37

Опции темы

дана целая матрица (N,N). Составить программу подсчёта количества нечётных элементов, расположенных выше побочной диагонали.

Решение