Matematické Fórum

program načte přirozené číslo N (N\le 20) a dále prvky celočíselné čtvercové matice řádu N. Načtenou matici vypíše, prvky těsně nad hlavní diagonálou a těsně pod hlavní diagonálou vynuluje a výslednou matici vypíše. Vstupní údaje čteny z předem připraveného textového souboru Prog2vst.txt a výstup programu bude zaznamenán do souboru Prog2vys.txt.

Vytisklo se mi jenom zadej pocet radku(sloupcu) ctvercove matice a ta matice už ne. Nemůžu najít chybu. moc vás prosím o radu.


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,j,m,n:integer;
      vstup,vystup:text
    a:array[1..100,1..100] of real;
begin
assign(Vstup,'Prog2vst.rft');
assign(Vystup,'Prog2vys.rft');
reset(Vystup);
rewrite(Vystup);
writeln(Vystup,'zadej pocet radku(sloupcu) ctvercove matice');
readln(Vstup,m);
for i:= 1 to m do
for j:= 1 to m do
begin
write(Vystup,'zadej prvek[',i,',',j,']:');
readln (Vstup,a[i,j]);
end;

for i:= 1 to m do
begin
for j:= 1 to m do
write(Vystup,a[i,j]:8:0);
writeln(Vystup);
end;
writeln(Vystup);

for i:= 1 to m do
for j:= 1 to m do
if (i<>j) and (i<j) then a[i,j]:=0;

for i:= 1 to m do
for j:= 1 to m do
if (i<>j) and (i>j) then a[i,j]:=0;

for i:= 1 to m do
begin
for j:= 1 to m do
write(Vystup,a[i,j]:8:0);
writeln(Vystup);
end;
writeln(Vystup);

readln(Vstup);
end.