Cod sursa(job #2120028)

Utilizator Catalin_NicolaescuCatalin Nicolaescu Catalin_Nicolaescu Data 1 februarie 2018 20:41:59
Problema Algoritmul lui Gauss Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.46 kb
type matrix=array[1..300,1..300]of longint;
type vector=array[1..300]of longint;
var a:matrix;
    n,m:longint;
    x:vector;

procedure citire;
var i,j:longint;
begin
    assign(f,'gauss.in');
    reset(f);
    readln(f,n,m);
    for i:=1 to n do
       for j:=1 to m+1 do
          read(f,a[i,j]);
    close(f);
end;

procedure afis;
var f:text;
begin
assign(f,'gauss.out');
rewrite(f);
writeln(f,'Imposibil');
close(f);
end;
begin
afis;
end.