Cod sursa(job #477977)

Utilizator paunmatei7FMI Paun Matei paunmatei7 Data 16 august 2010 22:25:12
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program cifra;
type vector=array [0..20]of longint;
var n,i:longint;
	a:vector;
[...]

procedure scriere (c:longint);
var e:text;
begin
assign (e,'cifra.out');
if i=1 then
rewrite (e);
append (e);
writeln (e,c);
close (e);
end;

[...]

begin
citire (n,a);
for i:=1 to n do
scriere (suma(a[i]));
end.