Tablouri unidimensionale Algoritmi fundamentali
Realizat de Carmen Rus
Maxime si Minime Căutare binară
Căutari de elemente Căutare Căutare liniară
Parcurgeri Sume si numărări Oar e de ce dai daca apesi butonul acesta acest a ??
Puţină teorie. Dacă vreţi binenţeles.
Daca nu apăsaţi
Cautari de elemente
Probleme
{Cunoscandu-se numele, inaltimea si greutateaa n elevi sa se afiseze numele acestora in ordinea descrescatoare a inaltimi. Daca exista doi elevicu aceeasi inaltime se va afisa cel care are greutatea mai mare.}
uses crt; var aux,i,j,n,k,min:integer; a,e:arra!".."##$ of string; %,c,d,f:arra!".."##$ of integer; aux":string; %egin clrscr; &riteln'(Dati numarul de elevi ")*n)*"## (+;readln'n+; &riteln'(Dati numele,inaltimea si greutatea celor (,n,( elevi:(+; for i:*" to n do %egin readln'a!i$+; readln'%!i$+; d!i$:*%!i$; readln'c!i$+; end; for i:*" to n-" do for j:*i" to n do if %!i$)%!j$ ten %egin aux:*%!i$; %!i$:*%!j$; %!j$:*aux;
for i:*" to n do for j:*" to n do if %!i$*d!j$ ten %egin e!i$:*a!j$; f!i$:*c!j$; d!j$:*#; j:*n; end; for i:*" to n-" do if %!i$*%!i"$ ten if f!i$)f!i"$ ten %egin aux":*e!i$; e!i$:*e!i"$; e!i"$:*aux"; aux:*f!i$; f!i$:*f!i"$; f!i"$:*aux end; for j:*" to n do %egin &rite '(umele: (,e!j$,( (,(/naltimea: (,%!j$,( (,(0reutatea: (,f!j$+; &riteln; end; readln end.
{1e citesc n numere intregi. 1a se afiseze cel mai mare numar o%tinut din 2rima cifra a fiecarui numar.}
var d:arra!"..3#$ of %te; a,i,c,aux,j,nr,n:longint; %egin &rite'(dati nr de nr(+;readln'n+; &riteln'(Dati elem: (+; for i:*" to n do %egin readln'a+; aux:*a; &ile aux)4# do %egin c:*aux mod "#; aux:*aux div "#; end; d!i$:*c end; for i:*" to n-" do for j:*i" to n do if d!i$)d!j$ ten %egin aux:*d!i$; d!i$:*d!j$; d!j$:*aux end; for i:*" to n do nr:*nr5"#d!i$; &riteln'(Cel mai mare nr este: (,nr+; readln end.
{1e citesc de la tastatura n numere naturale. 1e cere sa se sorteze sirul in ordinea crescatoare a numarului de a2aitii a cifrei " in re2rezentarea in %aza 3 a numerelor./n cazul in care doua numere au aceeasi numar de cifre egale cu " in re2rezentare lor %inara atunci ele vor a2area in ordinea in care sunt citite de la tastatura.}
var a,%,c,d:arra!".."##$of longint; aux,n,k,i,j:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; d!i$:*a!i$; j:*#; &ile a!i$4# do %egin if a!i$ mod 3*" ten j:*j"; a!i$:*a!i$ div 3 {in a!i$ o sa am doar valoarea #} end; %!i$:*j; c!i$:*j;{retine 2ozitiile inainte de sortare} end;
for i:*" to n-" do for j:*i" to n do if %!i$4%!j$ ten %egin aux:*%!j$; %!j$:*%!i$; %!i$:*aux {%!i$retine 2oz du2a sortare} end; k:*#; for i:*" to n do %egin for j:*" to n do if '%!i$*c!j$+ and '%!i$4k+ ten &rite'd!j$,( (+; k:*%!i$ end; readln end.
{Dandu-se un vector cu maxim "## de numere naturale, sa se localizeze elmentul maxim si toate elementele dinaintea lui sa se ordoneze crescator, iar cele de du2a el descrescator.}
var a,%:arra!".."##$of integer; max,aux,n,k,i,j:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; max:*-maxint; for i:*" to n do %egin for i:*k" to n-" do &rite'(a!(,i,($*(+;readln'a!i$+; for j:*i" to n do if a!i$4max ten %egin if a!i$)a!j$ ten %egin max:*a!i$; aux:*a!i$; end; a!i$:*a!j$; end; a!j$:*aux; for i:*" to n do end; if a!i$*max ten k:*i; &riteln'(6ectorul ordonat conform for i:*" to k-" do cerintei: (+; for j:*i" to k do for i:*" to n do &rite 'a!i$,( (+; if a!i$4a!j$ ten %egin readln aux:*a!i$; end. a!i$:*a!j$; a!j$:*aux end; &riteln;
Maxime si Minime
Probleme
{1e dau doi vectori x, cu n com2onente. 7rimul contine nume de elevi, iar al doilea notele la informatica. 1e cere sa se afiseze numele elevilor cu nota cea mai mica. Daca mai multi elevi au aceasta nota vor fi afisati toti.}
uses crt; var i,n,min:integer; x:arra!".."##$ of string; :arra!".."##$ of integer; %egin clrscr; &riteln'(Dati numarul de elevi ")*n)*"## (+;readln'n+; &riteln'(Dati numele celor (,n,( elevi:(+; for i:*" to n do readln'x!i$+; &riteln'(Dati mediile celor (,n,( elevi: (+; for i:*" to n do read'!i$+;readln; min:*!"$; for i:*3 to n do if !i$)min ten min:*!i$; for i:*" to n do if min*!i$ ten &rite'x!i$,( (+; readln; end.
{1a se realizeze 2rogramul 2entru determinare elementului maxim si a tuturor 2ozitilor unde a2are el intr-un vector 8 de numere intregi cu dimensinea .}
var a:arra!".."##$of longint; max,n,k,i,j:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; max:*-maxint; for i:*" to n do %egin if 'a!i$4max+ ten max:*a!i$;end; &riteln'(r maxim este (, max +; &riteln'(2ozitile maximului in vector sunt: (+; for i:*" to n do if a!i$*max ten &rite 'i,( (+; readln end.
{Sa se determine elementele cu numar maxim de divizori si elementele cu numar minim de divizori dintr-un vector x de numere intregi.}
var a,%:arra!".."##$of integer; max,min,n,k,i,j:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; k:*#; for j:*" to a!i$ do %egin &riteln'(Com2onenetele cu nr maxim de if a!i$ mod j*# ten %egin divizori sunt: (+; k:*k"; for i:*" to n do %!i$:*k if %!i$*max ten &rite 'a!i$,( (+; end &riteln;&riteln'(Com2onenetele cu nr minim end de divizori sunt: (+; end; for i:*" to n do max:*-maxint;min:*maxint; if %!i$*min ten &rite 'a!i$,( (+; for i:*" to n do %egin readln if '%!i$4max+ ten end. max:*%!i$; if %!i$)min ten min:*%!i$ end;
{1e da un vector continand litere. 1a se afiseze frecventa a2aritiei fiecarei litere in vector si literele cu cea mai mare frecventa, res2ectiv cea mai mica frecventa de a2aritie.}
var a,%:arra!".."##$of car; c,d,e:arra!".."##$ of integer; max,min,n,k,i,j,l:integer;aux:c ar; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; for i:*" to n-" do for j:*i" to n do if a!i$4a!j$ ten %egin aux:*a!j$; a!j$:*a!i$; a!i$:*aux end;
l:*"; for i:*ord'(8(+ to ord'(9(+ do %egin k:*#; for j:*" to n do if i*ord'a!j$+ten k:*k"; c!l$:*k; l:*l"; end; l:*"; for i:*ord'(a(+ to ord'(z(+ do %egin k:*#; for j:*" to n do if i*ord'a!j$+ ten k:*k"; d!l$:*k; l:*l"; end;
min:*maxint;max:*-maxint; for i:*" to l do %egin e!i$:*c!i$d!i$; end; for i:*" to l do %egin if 'e!i$)min+ and 'e!i$4#+ ten min:*e!i$; if e!i$4max ten max:*e!i$ end; &riteln'(iteraiterele cu cea mai mare frecventa de a2aritie estesunt:(+; for i:*" to l do if e!i$*max ten &rite'cr'<=i+,( (+;&riteln; &riteln'(iteraiterele cu cea mai mica frecventa de a2aritie estesunt:(+; for i:*" to l do if e!i$*min ten &rite'cr'<=i+,( (+; { for i:*" to n do &rite &rite 'a!i$,( (+;} readln end.
{1e citeste de la tastatura un sir cu n elemente numere naturale, nu nea2arat distincte. 1a se afiseze elementul care a2are de cele mai multe ori in sir. Daca exista mai multe astfel de elmente,se vor afisa toate.}
var a,%:arra!".."##$of longint; max,n,k,i,j:integer;aux:longint; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; for i:*" to n-" do for j:*i" to n do if a!i$4a!j$ ten %egin aux:*a!j$; a!j$:*a!i$; a!i$:*aux end; k:*";j:*#; for i:*" to n do %egin if a!i$*a!i"$ ten inc'k+ else %egin j:*j" ; %!j$:*k; if i*n-" ten %!j"$:*"; k:*"; end;
max:*-maxint; for i:*" to j" do if %!i$4max ten max:*%!i$; {&rite'max:>+;&riteln;} k:*"; for i:*" to j" do if %!i$*max ten %egin &rite'a!k$,( (+; k:*k%!i$ end else k:*k%!i$; readln end.
{1e considera un sir cu n numere naturale. 1e cere sa se afiseze un numar din sir care in scrierea sa cat mai multe cifre distincte. Daca exista mai multe numere cu aceasta 2ro2rietate se va afisa 2rimul dintre ele.}
var t,k,i,j,l,n,aux:longint; a,%,c,d:arra!".."##$of longint; %egin &rite'(Dati n: (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; t:*";k:*#;d!i$:*a!i$; re2eat k:*k"; %!k$:*a!i$ mod "#; a!i$:*a!i$ div "#; until a!i$*#; for j:*" to k-" do for l:*j" to k do if %!j$4%!l$ ten %egin aux:*%!j$; %!j$:*%!l$; %!l$:*aux end;
for j:*" to k-" do if %!j$)4%!j"$ ten t:*t"; c!i$:*t end; l:*c!"$; for i:*3 to n do if l)c!i$ ten %egin l:*c!i$; k:*i ; end; &rite'(2rimul numarul cu cele mai multe cifre distincte este(,d!k$:>+; readln end.
Cautare binara a)pe structura “repeat..until” b)pe structura “while..do”
a )
program cautare_binara; var n,i,,aux,x,ls,ld,mi!integer; a!arra"#b"te$ of integer; begin %rite&'n(');readln&n); for i!(* to n do begin %rite&'a#',i,'$('); readln&a#i$); end; %rite&'x(');readln&x); for i!(* to n-* do for !(i+* to n do if a#i$a#$ ten begin aux!(a#i$; a#i$!(a#$; a#$!(aux; end;
ls!(*; ld!(n; repeat mi!(&ls+ld) div ; if a#mi$(x ten %riteln&'cautare cu succes') else if a#mi$x ten ld!(mi-* else ls!(mi+*; until &a#mi$(x) or &lsld); if lsld ten %rite&'nu exista ',x,' in vector'); readln end.
b) program cautarebinara; var n,i,,aux,x,ls,ld,mi,s%!inte ger; a!arra"#b"te$ of integer; begin %rite&'n(');readln&n); for i!(* to n do begin %rite&'a#',i,'$('); readln&a#i$); end; %rite&'x(');readln&x); for i!(* to n-* do for !(i+* to n do if a#i$a#$ ten begin aux!(a#i$; a#i$!(a#$; a#$!(aux; end;
ls!(*; ld!(n; mi!(&ls+ld) div ; s%!(/; %ile &a#mi$0x) and &ls0(ld) do begin if a#mi$x ten ld!(mi-* else ls!(mi+*; mi!(&ls+ld) div ; end; if a#mi$(x ten %riteln&'este in vector') else %riteln&'nu exista ',x,' in vector'); readln end.
Cautare liniara
program cautare_liniara; var a!arra"#*..1/$ of integer; x!integer; i,n,s%!b"te; begin %rite&'n(');readln&n); for i!(* to n do begin %rite&'a#',i,'$('); readln&a#i$); end; %rite&'x(');readln&x); s%!(/; for i!(* to n do if a#i$(x ten s%!(*; if s%(/ ten %rite&x,' nu se a2a in vector') else %rite&'cautare cu succes'); readln end.
Parcurgeri Sume si numarari
Probleme
{1crieti un 2rogram care ti2areste elementele 2are aflate 2e 2ozitii divizi%ile cu ? dintr-un vector de nr intregi.} var a:arra!"..?#$ of integer; s,n,i:integer; %egin &rite '(n* (+;readln'n+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+ end; i:*?; &ile i)*n do %egin if a!i$ mod 3*# ten &rite'a!i$:>+; i:*i?; end; readln end.
{@iid dat un vector de numere intregi,sa se determine suma elementelor 2ozitive din vector.} var a:arra!"..?#$ of integer; s,n,i:integer; %egin &rite '(n* (+;readln'n+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+ end; s:*#; for i:*" to n do if a!i$4# ten s:*sa!i$; &riteln'(1uma este: (, s+; readln; end.
{1a se afiseze doar elementele 2are dintr-un vector de numere intregi.} var a:arra!"..?#$ of integer; s,n,i:integer; %egin &rite '(n* (+;readln'n+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+ end; for i:*" to n do if a!i$ mod 3*# ten &rite '(umerele sunt: a!i$,(,(+; readln end.
{1e citeste de la tastatura un vector cu n com2onente de ti2 intreg. 1e cere sa se construiasca si sa se afiseze un nou vector cu com2onentele 2atrate 2erfecte din vectorul initial.} var a,%:arra!".."##$ of integer; n,i,j,2,k:integer; %egin &rite '(n* (+;readln'n+;k:*#; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; if a!i$4*# ten for j:*" to trunc'sArt'a!i$++ do if j5j*a!i$ ten %egin k:*k"; %!k$:*a!i$ end; end; &riteln'(Com2onentele 2atrate din vectorul dat sunt: (+; for i:*" to k do &rite'%!i$, ( (+; readln end.
{1a se calculeze suma elementelor negative si de valoare 2ara dintr-un vector de nr intregi} var a:arra!"..?#$ of integer; s,n,i:integer; %egin s:*#; &rite '(n* (+;readln'n+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; if 'a!i$)#+ and 'a!i$ mod 3*#+ ten s:*sa!i$; end; &riteln'(1uma este: (,s+; readln end.
{1e da un vector v cu n elemente numere intregi.1a se co2ieze intr-un vector u elementele 2ozitive ale vectorului initial} var a,%:arra!"..?#$ of integer; n,i,j:integer; %egin &rite '(n* (+;readln'n+;j:*#; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; if a!i$4# ten %egin j:*j"; %!j$:*a!i$ end; end; for i:*" to j do &rite'%!i$,( (+; readln; end.
{1e da un vector de numere reale.1a se determine 2rocentul de numere din vector mai mici strict decat B8 si 2rocentul de numere din vector mai mari strict decat B8,unde am notat cu B8 media aritemtica a com2onentelor din vector.} var a:arra!"..?#$ of real; n,i,2,k:integer;ma,s:real; %egin s:*#; &rite '(n* (+;readln'n+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; s:*sa!i$; end; ma:*sn; for i:*" to n do if a!i$4ma ten k:*k" else if a!i$)ma ten 2:*2"; &riteln'(7rocentul celor strict mai mari decat B8 este: (,kn5"##:>:3,((+; &rite'( 7rocentul celor strict mai mici decat B8 este: (,2n5"##:>:3,((+; readln; end.
{1crieti un 2rogram care citeste de la tastatura cele n numere reale ce com2un vectorul a si a2oi cele m numere reale ce constituie com2onentele vectorului % si afiseaz 2e ecran cate din com2onentele lui a sunt strict mai mici decat toate com2onentele vectorului %.} var a,%:arra!"..?#$ of real; n,i,m,j:integer; %egin &rite '(n* (+;readln'n+;&rite '(m* (+;readln'm+; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; end; for j:*" to m do %egin &rite '(%!(,j,($*(+;readln'%!j$+; end; for i:*" to n do if a!i$)%!i$ ten &rite'a!i$:>:3,( (+; readln; end.
{@iind dat un vector v cu n elemente numere intregi ,sa se construiasca alti doi vectori :2rimul care va contine numai elemente 2are ,iar al doilea numai elem im2are din vectorul initial} var a,%,c:arra!"..?#$ of integer; n,i,m,2:integer; %egin &rite '(n* (+;readln'n+;m:*#;2:*#; for i:*" to n do %egin &rite '(a!(,i,($*(+;readln'a!i$+; if a!i$ mod 3*# ten %egin inc'm+; %!m$:*a!i$; end else %egin inc'2+; c!2$:*a!i$; end; end; readln end.
{@ie un vector x de numere intregi. 1a se formeze un vector de numere intregi, in care !i$ sa fie restul im2artiri lui x!i$ la suma cifrelor lui x!i$.} t2e vector*arra!".."##$ of integer; var x,:vector;aux,s:integer; i,n,c:%te; %egin riteln'(Dati dimensiunea vector,)*"## (+;read'n+; &riteln'(/ntroduceti cele (,n,( com2onente:(+; for i:*" to n do %egin readln'x!i$+;aux:*x!i$;s:*#; &ile aux)4# do %egin c:*aux mod "#; s:*sc; aux:*aux div "# end; !i$:*x!i$ mod s; end; for i:*" to n do &rite'!i$,( (+; readln end.
{a codificarea unui text scris cu cel mult 2rimele n litere mici ale afa%etului englez, se folosesc cele mai mici n numere naturale care au exact ? divizori naturali. 7entru litera (a( se foloseste cel mai mic nr cu 2ro2rietatea res2ectiva, 2entr (%( cel mai mic numar diferit de cel folosit 2entru (a(,si asa mai de2arte. a+1a se afiseze, se2arate 2rin cate un s2atiu, cele n numere folosite la codificare. %+7entru un text dat de la tastatura,se cere sa se afiseze codificarea textului, fiecare caracter fiind inlocuit cu numarul cores2unzator si orice doua coduri conscutive vor fi se2arate 2rintr-un s2atiu.}
var n,i,d,j,c:integer; a:arra!"..3>$ of car; %:arra!"..3>$ of integer; %egin &riteln'(Dati nr de litere -vezi enunt(+;readln'n+; &riteln'(Dati textul(+; for i:*" to n do read'a!i$+; i:*=; re2eat d:*3;c:*"; &ile'd)*i+ do %egin if 'i mod d*#+ ten %egin c:*c"; d:*d" end else d:*d"; end;
if c*? ten %egin j:*j"; %!j$:*i; end; i:*i" until j*n; &riteln'(r cu ? divizori folosite la codificare: (+; for i:*" to n do &rite'%!i$, ( ( +; &riteln; &riteln'(Eextul dat se codifica astfel:(+; for i:*" to n do %egin c:*ord'a!i$+-ord'(a(+; &rite'%!c"$,( (+; end; readln end.
{1a se calculeze cmmdc'x",x3,x?,...,xn+} t2e vector*arra!".."##$ of integer; var a:vector;cmmdc:integer; i,n:%te; %egin riteln'(Dati dimensiunea vector,)*"## (+;read'n+; &riteln'(/ntroduceti cele (,n,( com2onente 2ozitive nenule:(+; for i:*" to n do read'a!i$+; readln; cmmdc:*a!"$; for i:*3 to n do %egin &ile a!i-"$)4a!i$ do if a!i-"$4a!i$ ten a!i-"$:*a!i-"$-a!i$ else a!i$:*a!i$-a!i-"$; end; cmmdc:*a!n$; &riteln'(Cmmdc este: (,cmmdc+; readln end.
{Cate numere 2erfecte exista in ta%loul x*'x",x3,..,xn+ de numere intregi citite de la tastatura. Fn numar este 2erfect daca este egal cu suma divizorilor sai mai mici ca el.} var a:arra!".."##$of integer; d,s,n,k,i,j:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end;k:*#; &rite'(umerele 2erfecte sunt: (+; for i:*" to n do %egin s:*#; for j:*" to a!i$ do if a!i$ mod j*# ten s:*sj ; if '35a!i$*s+ and 'a!i$4#+ ten %egin k:*k"; &rite'a!i$,( (+ end; end; &rite'(8vem (,k,( numere 2erfecte. (+; readln end.
{Cate elemente dintr-un vector de numere intregi sunt 2rime cu un nr dat.} var a:arra!".."##$of integer; A,n,k,i,j,t:integer; %egin &riteln'(Dati nr de elemente (+;readln'n+; &riteln'(Dati un nr. k (+;readln'k+;A:*k; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; &riteln'(r care sunt 2rime cu (,k ,( sunt: (+; for i:*" to n do %egin t:*a!i$; &ile a!i$)4k do if a!i$4k ten a!i$:*a!i$-k else k:*k-a!i$; k:*A; if a!i$*" ten %egin j:*j"; &rite't,( (+ end; end; &riteln;&riteln'(8vem: (,j,( nr 2rime cu (,A+; readln end.
{1e considera un sir de n numere reale. 1a se scrie un 2rogram care elimina di sir valorile ce se afla in afara intervalului !a,%$.} var c,d:arra!"..?#$of integer; a,%,i,n,aux,k:integer; %egin &riteln'(Dati a si %(+;readln'a+;readln'%+; &riteln'(dati nr de com2onente: (+;readln'n+;k:*#; for i:*" to n do %egin &rite'(c!(,i,($*(+;read'c!i$+; end; if a4% ten %egin aux:*%; %:*a; a:*aux; end; for i:*" to n do if 'c!i$4*a+ and 'c!i$)*%+ ten %egin k:*k"; d!k$:*c!i$; end; for i:*" to k do &rite'd!i$,( (+; readln end.
{@ie un vector de numere intregi.1a se afiseze toate tri2letele de numere consecutive din x,in care al treilea numar este media aritmetica a 2rimului cu cel de al doilea.} var i,n:integer; a:arra!".."##$of integer; %egin &rite'(Dati n: (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; for i:*" to n-3 do if a!i3$*'a!i$a!i"$+3 ten &rite'('(,a!i$,( (,a!i"$,( (,a!i3$,(+(+; readln end.
{1a se calculeze ultima cifra a numarului x!"$x!3$..x!n$,unde x este un vector cu n com2onente numere naturale citite de la tastatura.} var a,%:arra!"..?#$ of integer; i,n,s:integer; %egin &riteln'(Dati nr de com2onente: (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; for i:*" to n do %egin %!i$:*a!i$ mod "#; s:*s%!i$; end; &riteln'(ultima cifra a sumei este: (,s mod "#+; readln end.
{@ie un vector de numere intregi.1a se afiseze toate tri2letele de numere consecutive din x,in care al treilea numar este restul inm2artirii 2rimului la al doilea.} var i,n:integer; a:arra!".."##$of integer; %egin &rite'(Dati n: (+;readln'n+; for i:*" to n do %egin &rite'(a!(,i,($*(+;readln'a!i$+; end; for i:*" to n-3A do if a!i$ mod a!i"$*a!i3$ ten &rite'('(,a!i$,( (,a!i"$,( (,a!i3$,(+(+; readln end.
*.Stiind
ca variabila x este utilizata intr-un program pentru a memora mediile din semestrul al doilea ale uni elev de clasa a 344-a la cele *5 discipline din catalog,stabiliti care este declararea corespunzatoare x 6
a) b) c) d)
var x!b"te; var x!arra"#*..*5,*..*$ of b"te; var x!arra"#*..*5$ of b"te; var x!arra"#*..*1$ of b"te;
7ext
.Se considera algoritmul reprezentat in limba pseudocod! citeste n; pentru 4( *, n executa citeste ai; citeste p; pentru 4( *, n executa inceput aux0- ai; cat timp ai 0/ executa inceput s0- s+ ai mod */; ai0- ai div */; sfarsit daca s mod p(/ atunci scrie aux; 8
9e valori vor : a:sate pentru n(1, p(5, a#, , *, *, <$! a) , , *
b) , *, < c) , *, < d) , , *, *, <
7ext
.Se da urmatorul program. 9e face el 6 var a!arra"#*../$ of integer; s,n,i!integer; begin s!(/; %rite &'n( ');readln&n); for i!(* to n do begin %rite &'a#',i,'$(');readln&a#i$); if &a#i$0/) and &a#i$ mod (/) ten s!(s+a#i$; end; %riteln&'Suma este! ',s); readln end.
7ext
a) calculeaza suma elementelor negative si de valoare para dintr-un vector b) calculeaza suma elementelor negative si numa atat c) calculeaza suma elementelor de valoare para dintr-un vector
=.Se da urmatorul program! var a!arra"#*../$ of integer; s,n,i!integer; begin %rite &'n( ');redln&n); for i!(* to n do begin %rite &'a#',i,'$(');readln&a#i$) end; for i!(* to n do 7ext if a#i$ mod (/ ten %rte &'7umerele sunt! a#i$,','); readln >upa efectuarea acestui program se vor a: end.
a)?ectorul b)Si elmetele pare si cele impare dintr-un vector c)7umerele care impartite la dau restul zero d)7imic deoarece este gresit
1. >aca vectorul @a contine B, =, 5, , * atunci vectorul @b va :! = = =* - = 8 C!( /; Dor 4!( n do%nto * do if &4 mod ( /) and &a#4$ mod ( /) ten begin inc &); b#$!( a#4$; End;
7ext
>A
7F
Puţină teorie. Dacă vreţi binenţeles.
Daca nu apăsaţi
Ai răspuns greşit Mai cearcă GacH
Mai pune!ti po"ta in cui
#andeşti bine $
GacH
