Автор: Kirk

Kirk — Sat, 13 May 2017 10:53:43 +0000

Точнее так

for i:=m downto 1 do
  for j:=m-i downto 1 do a[m-i+1,j]:=0;

1 2	for i:=m downto 1 do for j:=m-i downto 1 do a[m-i+1,j]:=0;

Забыл про условный оператор 🙂

Автор: Kirk

Kirk — Sat, 13 May 2017 10:33:30 +0000

program m88;

type 
 matrix = array [1..10,1..10] of real;
 
var
 a: matrix;
 m,i,j: integer;

begin
randomize;
 m:=random(8)+2;
 writeln('M=',m);
 writeln();
 for i:=1 to m do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random*10;
     write(a[i,j]:6:2);
    end;
   writeln();
  end;
 writeln();
 
 for i:=1 to m do
  for j:=1 to m do
   if (i>j) then a[i,j]:=0;
   
 for i:=1 to m do
  begin
   for j:=1 to m do write(a[i,j]:6:2);
   writeln();
  end;
end.

program m88;

type

matrix = array [1..10,1..10] of real;

var

a: matrix;

m,i,j: integer;

begin

randomize;

m:=random(8)+2;

writeln('M=',m);

writeln();

for i:=1 to m do

begin

for j:=1 to m do

begin

a[i,j]:=random*10;

write(a[i,j]:6:2);

end;

writeln();

end;

writeln();

for i:=1 to m do

for j:=1 to m do

if (i>j) then a[i,j]:=0;

for i:=1 to m do

begin

for j:=1 to m do write(a[i,j]:6:2);

writeln();

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix88

Автор: Kirk

Автор: Kirk