Question

Help,ce am gresit? Imi apar 0 uri la executie​
Problema:in fisierul doisiruri.txt avem pe prima linie n1 natural nenul dupa care se separa prin spatii n1 numere intregi
Se creeaza sirurile a si respectiv b cu cele n1 respectiv n2 numere intregi si se afiseaza pe ecran urm.:
aveti in poza cerintele

Answer 1

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: