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

@Кристина ш · Регистрация: 31.01.2011

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

@Puporev · 31.01.2011, 21:13

Pascal

1
2
3

for i:=1 to n do
for j:=i to n do
a[i,j]:=0;

24.06.2011, 16:45

А нельзя ли всю программу написать?

@Sarmat · 24.06.2011, 20:07

Pascal

uses crt;
const n=12; m=12;
var a:array [1..n,1..m] of integer;
i,j,k:integer;
begin
k:=1;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(200);
for i:=1 to n do
a[i,i]:=0;
for i:=1 to n do
for j:=i to m do
a[i,j]:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
write (a[i,j]:4);
end;
writeln;
end;
end.

@Step_UA · 24.06.2011, 20:19

и зачем здесь этот цикл

Pascal

1 2	for i:=1 to n do a[i,i]:=0;

@Puporev · 24.06.2011, 20:27

Pascal

for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(200);
     write(a[i,j]:4);
    end;
   writeln;
  end;
writeln;
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     if j>=i then a[i,j]:=0;
     write(a[i,j]:4);
    end;
   writeln;
  end;
writeln;

@Кристина ш 42 / 0 / 0 Регистрация: 31.01.2011 Сообщений: 11
		1
	Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё. 31.01.2011, 20:22. Показов 6330. Ответов 5 Метки нет (Все метки) Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё. 0

One-R
	24.06.2011, 16:45	3
	А нельзя ли всю программу написать?

	24.06.2011, 20:27