Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее

@Оля78 · Регистрация: 13.11.2011

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

Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее

20.11.2011, 16:55

Pascal

Program pas;
var
 a:array [1..12,1..12] of byte;
 i1,i2:byte;
begin
 for i1:= 1 to 12 do begin
  for i2 := 1 to 12 do begin
   a[i1,i2]:= 1;
  end;
 end;
{Это мы заполнили матрицу единицами.}
 for i1:= 1 to 12 do begin
  for i2:= i1 to 12 do begin
   a[i1,i2]:= 0
  end;
 end;
{Это по диагонали и выше поставили нули.}
 for i1:= 1 to 12 do begin
  for i2 := 1 to 12 do begin
   write(a[i1,i2]);
  end;
 writeln();
 end;
{А это мы вывели результат не экран.}
 readln;
end.

Так??

@Оля78 · 20.11.2011, 16:59 **[ТС]**

блллиин...Работает!) вы гений!)))
спасибо большое!

@Оля78 0 / 0 / 0 Регистрация: 13.11.2011 Сообщений: 14
		1
	Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее 20.11.2011, 00:37. Показов 2005. Ответов 2 Метки нет (Все метки) Дана действительная квадратная матрица порядка 12. Замените нулями все ее элементы, расположенные на главной диагонали и выше нее 0

@Оля78 0 / 0 / 0 Регистрация: 13.11.2011 Сообщений: 14
	20.11.2011, 16:59 [ТС]	3
	блллиин...Работает!) вы гений!))) спасибо большое! 0

Замените нулями все элементы матрицы, расположенные на главной диагонали и выше нее

Решение