Mam taki program w którym musze policzyć wyznacznik z każdej z rozmiaru tablic (2x2, 3x3 , 4x4)
program wsp;
uses crt;
var
a: array [1..2, 1..2] of integer;
b: array [1..3,1..3] of integer;
c: array [1..4, 1..4] of integer;
uzywana: byte;
procedure wczytaj;
var
i,j,k: integer;
begin
clrscr;
writeln('Wybierz rodzaj tablicy:');
writeln;
writeln('1) 2x2');
writeln('2) 3x3');
writeln('3) 4x4');
readln(uzywana);
if uzywana=1 then begin
for i:=1 to 2 do begin
for j:=1 to 2 do begin
writeln('Podaj współczynnik numer:',i,'x',j);
readln(a[i,j]);
end;
end;
end;
if uzywana=2 then begin
for i:=1 to 3 do begin
for j:=1 to 3 do begin
writeln('Podaj współczynnik numer:',i,'x',j);
readln(b[i,j]);
end;
end;
end;
if uzywana=3 then begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
writeln('Podaj współczynnik numer:',i,'x',j);
readln(c[i,j]);
end;
end;
end;
end;