Элементы матрицы заменить количеством элементов стоящих в нечетных строках

@fudges · Регистрация: 05.06.2011

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

2. все элементы матрицы лежащие ниже второстепенной диагонали заментиь количеством элементов стоящих в нечетных строках и в четных столбцах

@KaiTheCat · 05.06.2011, 15:59

Pascal

uses crt;
Var
  a: array[1..100,1..100] of integer;
  i,j,n,k: byte;
Begin
  clrscr;
  randomize;
  write('размерность: ');
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:4);
          if odd(i) and not odd(j) then inc(k);
        end;
      writeln;
    end;
  writeln;
  for i:=2 to n do
  for j:=2 to n do
    if j>n-i+1 then a[i,j]:=k;
  for i:=1 to n do
    begin
      for j:=1 to n do write(a[i,j]:4);
      writeln;
    end;
  readkey
End.

@fudges 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 3
		1
	Элементы матрицы заменить количеством элементов стоящих в нечетных строках 05.06.2011, 03:12. Показов 906. Ответов 1 Метки нет (Все метки) 2. все элементы матрицы лежащие ниже второстепенной диагонали заментиь количеством элементов стоящих в нечетных строках и в четных столбцах 0

	05.06.2011, 15:59

Элементы матрицы заменить количеством элементов стоящих в нечетных строках

Решение