program Noname0;
type masyvas = array[1..100] of integer;
var d,r:text;
i,n,isleistaIsViso,laimetaIsViso:integer;
isleista,laimeta:masyvas;
/////// nuskaitymas
procedure nuskaitymas(var isleista,laimeta:masyvas);
begin
assign(d,'duomenys.txt');
reset(d);
readln(d,n);
for i:=1 to n do
readln(d,isleista[i],laimeta[i]);
close(d);
end;
/////// funkcija randanti pinigu suma (sudedanti masyvo elementus)
function suma(var mas:masyvas; n:integer):integer;
var laikina:integer;
begin
laikina:=0;
for i:=1 to n do
laikina := laikina + mas[i];
suma:=laikina;
end;
////// funkcija randanti max
function max(var mas:masyvas; n:integer):integer;
var didz,i:integer;
begin
didz := 1;
for i:=2 to n do
if mas[i] > mas[didz] then
begin
didz := i;
end;
max:=mas[didz];
end;
/////// rasymas i faila
procedure rasymas(var isleista,laimeta:masyvas);
begin
assign(r,'rezultatai.txt');
rewrite(r);
Writeln(r,suma(isleista,n),' ',suma(laimeta,n));
Writeln(r,'Didziausias laimejimas: ',max(laimeta,n));
if suma(laimeta,n) > suma(isleista,n) then
begin
Writeln(r,'Pelnas: ',suma(laimeta,n)-suma(isleista,n));
end
else Writeln(r,'Nuostolis: ',suma(isleista,n)-suma(laimeta,n));
close(r);
end;
begin
nuskaitymas(isleista,laimeta);
rasymas(isleista,laimeta);
end.
Laukiu gero atsiliepimo ! :D Klausk jei kas neaišku :)
