Proiect Bazele Programarii

Extras din proiect Cum descarc?

1.Sa se afle suma elementelor pozitive dintr-un vector citit de la tastatura.
Date de intrare: vectorul v,lungimea sa n,si i ( pozitia).
Date de iesire : Suma. 
var v:array [1..20] of integer;
n,i,S:integer;
begin
write ('Dati numarul elementelor din vector n=');
read (n);
for i:=1 to n do
begin
write ('dati elementele vectorului v[',i,']=');
read (v[i]);
end;
S:=0;
for i:=1 to n do
if v[i]>0 then S:=S+v[i];
write ('suma elemntelor pozitive din vetor este S=',S);
end.
2. Sa se afle produsul si numarul elementelor negative aflate pe pozitii impare dintr-un vector.
Date de intrare :vectorul v si lungimea sa n.
Date de iesire : numarul elem negative (nr) si produsul (P).
var v:array [1..20] of integer;
n,i,P,nr:integer;
begin
write('Dati numarul de elemente n=');
read(n);
for i:=1 to n do
begin
write ('Dati elmentele vectorului v[',i,']=');
read (v[i]);
end;
P:=1;
nr:=0;
for i:=1 to n do
begin
if (i mod 2<>0) and (v[i]<0) then
begin
P:=P*v[i];
nr:=nr+1;
end;
end;
write('Produsul este P=',P);
write ('numarul elementelor negative nr=',nr);
end.
3. Sa se calculeze elementul minim dintr-un vector.
Date de intrare :vectorul si lungimea sa (v,n)
Date de iesire : elementul minim. 
var v:array [1..20] of integer;
n,i,min:integer;
begin
write('Dati numarul de elemente n=');
read(n);
for i:=1 to n do
begin
write ('Dati elmentele vectorului v[',i,']=');
read (v[i]);
end;
min:=v[1];
for i:=1 to n do
if v[i]<min then min:=v[i];
write ('minimul este min=',min);
end.
4. Se citeste de la tastatura un vector cu n elemente numere intregi. Sa se afiseze numarul elementelor pozitive,numarul elementelor negative si numarul elementelor nule.
Date de intrare :vectorul si lungimea sa.
Date de iesire : poz1,neg1 ,nul1.
var v:array [1..20] of integer;
n1,i,j,poz1,neg1,nul1:integer;
begin
write('Dati numarul de elemente n=');
read(n);
for i:=1 to n do
begin
write ('Dati elementele vectorului v[',i,']=');
read (v[i]);
end;
poz1:=0;
neg1:=0;
nul1:=0;
for i:=1 to n1 do
begin
if v[i]>0 then poz1:=poz1+1


Fisiere in arhiva (1):

  • Proiect Bazele programarii.doc

Imagini din acest proiect Cum descarc?

Banii inapoi garantat!

Plateste in siguranta cu cardul bancar si beneficiezi de garantia 200% din partea Proiecte.ro.


Descarca aceast proiect cu doar 5 €

Simplu si rapid in doar 2 pasi: completezi adresa de email si platesti.

1. Numele, Prenumele si adresa de email:

Pe adresa de email specificata vei primi link-ul de descarcare, nr. comenzii si factura (la plata cu cardul). Daca nu gasesti email-ul, verifica si directoarele spam, junk sau toate mesajele.

2. Alege modalitatea de plata preferata:



* Pretul este fara TVA.


Hopa sus!