Cod sursa(job #1022327)

Utilizator nik6Moldovanu Nicolae nik6 Data 5 noiembrie 2013 09:55:09
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var n.m:real;
    i,j:integer;
    s:int64;
    a:array[0..20,0..20] of integer;
    f,g:text;
begin
assign(f,'flip.in'); reset(f);
assign(g,'flip.out'); rewrite(g);
readln(f,n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do if a[i,j]>0 then s:=s+a[i,j];
end;
write(g,s);
close(f); close(g);