Houssey
Moderator
 Din: Buzau
Inregistrat: acum 18 ani
Postari: 260
|
|
{tab026.pasbac_iulie200/var10pag133 {Comparatii in vectori. Scrieti un program care citeste de la tastatura cele 10 numere reale ce compun vectorul a si apoi cele 8 numere reale ale vectorului b si afiseaza pe ecran cate din componentele vectorului a sunt strict mai mici decit toate componentele vectorului b.
Ex:a=(4, 8, 1, 9, 5, 11, 3, 43, 6, 20) si b=(9, 9, 6, 9, 9, 8, 6, 9) atunci numarul cautat este 4, deoarece valorile 4, 1, 5, si 3 sunt mai mici decit toate elementele lui b} type vector=array [1..20] of integer; var a,b:vector; i,nr,min:integer; begin {citeste vectorii a si b de la tastatura} for i:=1 to 10 do begin write ('a[',i,']='); readln(a[i]); end; for i:=1 to 8 do begin write ('b[',i,']='); readln(b[i]); end; {determina minimul din al doilea vector} min:=MAXINT; for i:=1 to 8 do if b[i]< min then min:=b[i]; {numara cate din elementele primului vector sunt mai mici decit minimul} nr:=0; for i:=1 to 10 do if a[i]<min then nr:=nr+1; writeln('nr=',nr); readln; end.
_______________________________________ House Music Set`s Me Free!
|
|