Răspuns:
program siruri;
var f:text; n1,n2,i:byte;
s1,sm2,max:integer;
a,b:array[1..50] of integer;
begin
assign(f,'doisiruri.txt');
reset(f);
readln(f,n1); readln(f,n2);
s1:=0;
for i:=1 to n1 do
begin
read(f,a[i]);
s1:=s1+a[i];
end;
sm2:=0;
for i:=1 to n2 do
begin
read(f,b[i]);
sm2:=sm2+abs(b[i]);
end;
close(f);
max:=a[1];
for i:=2 to n1 do
if a[i]>max then max:=a[i];
for i:=1 to n2 do
if b[i]>max then max:=b[i];
writeln('n1= ',n1);
writeln('n2= ',n2);
write('Sirul a: ');
for i:=1 to n1 do write(a[i],' '); writeln;
write('Sirul b: ');
for i:=1 to n2 do write(b[i],' '); writeln;
writeln('Suma sir1: ',s1);
writeln('Suma modulelor sir2: ',sm2);
writeln('Maximul ambelor siruri: ',max);
readln;
end.
Explicație:
