cr3us
Moderator
 Inregistrat: acum 17 ani
Postari: 160
|
|
{Se citeste din fisierul 'teza.txt' doi vectori a si b de numere intregi cu m respectiv n elemente(pe prima linie din fisier sunt date valorile m si n cu spatiu intre ele),iar pe urmatoarele 2 linii sunt date ele- mentele celor doua siruri cu elementele separate prin spatiu.Afisati pe ecran cate si care dintre componentele vectorului a sunt strict mai mici decat toate componentele vectorului b. Ex:m=10,n=8 (a):4 8 1 9 5 11,3 43 6 20 (b):9 9 6 9 9 8 6 9 R: 4 elemente 4 1 5 3 }
type vec=array[1..40] of integer; var f:text; a,b:array[1..40] of integer; i,n,m,j:integer;
procedure citire(a,b:vec;m,n:integer); begin assign(f,'input.txt'); reset(f); read(m,n); for i:=1 to m do for j:=1 to n do read(f,a[i],b[j]); close(f); end;
procedure afisare(a,b:vec;m,n:integer); begin assign(f,'output.txt'); rewrite(f); for i:=1 to m do begin for j:=1 to n do write(f,a[i],b[j],' '); writeln(f); end; close(f); end;
procedure comparare(a,b:vec;m,n:integer;var nr:integer); var i,j:integer; begin nr:=0; for i:=1 to m do for j:=1 to n do if a[i]<b[j] then begin inc(nr); write(a[i],' '); end; end;
begin citire(); afisare(); comparare(a,b); readln end.
_______________________________________ Cr3u$
|
|