Определить есть ли нули на главной диагонали этой матрицы , напечатать массив и номера этих нулевых элементов

@pasha199t · Регистрация: 28.08.2013

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

Двумерный массив задан с помощью генератора случайных чисел Определить есть ли нули на главной диагонали этой матрицы , напечатать массив и номера этих нулевых элементов

@ermolay · 29.08.2013, 17:40

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,k: integer;
begin
  randomize;
  repeat
    write('Ââåäèòå ðàçìåð ìàññèâà n: ');
    readln(n);
  until n in [1..nmax];
  k:=0;
  writeln('Ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(5)-2;
      write(a[i,j]:3);
      if (i=j)and(a[i,j]=0) then inc(k);
    end;
    writeln;
  end;
  if k=0 then writeln('Íåò íóëåâûõ ýëåìåíòîâ íà ãëàâíîé äèàãîíàëè')
    else
      begin
        writeln('Íîìåðà íóëåâûõ ýëåìåíòîâ:');
        for i:=1 to n do
          if a[i,i]=0 then write('a[',i,',',i,'] ');
      end;
  readln;
end.

@pasha199t 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 18
		1
	Определить есть ли нули на главной диагонали этой матрицы , напечатать массив и номера этих нулевых элементов 29.08.2013, 17:24. Показов 1947. Ответов 1 Метки нет (Все метки) Двумерный массив задан с помощью генератора случайных чисел Определить есть ли нули на главной диагонали этой матрицы , напечатать массив и номера этих нулевых элементов 0

	29.08.2013, 17:40

Определить есть ли нули на главной диагонали этой матрицы , напечатать массив и номера этих нулевых элементов

Решение