Extras din proiect
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
Preview document
Conținut arhivă zip
- Proiect Bazele programarii.doc
Te-ar putea interesa și
Introducere Mediul economic din țara noastră, ca de altfel din întreaga lume, este în prezent foarte agresiv sub aspectul concurenței și total...
INTRODUCERE Actualitatea temei. în ultimele trei decenii în lumea educaţiei s-au produs schimbări de ordin principial, ca reacţie la...
1. Calculati suma elementelor unui vector #include <stdio.h> #include <conio.h> void main() { int v[10], n, i, s=0; clrscr(); printf ("dati...
CAPITOLUL I ROLUL ŞI IMPORTANŢA LANSĂRII ŞI URMĂRIRII PRODUCŢIEI 1.1 Conducerea operativă a producţiei. Conceptele de lansare şi urmărire a...
Acest program se doreste a fi unul care sa vina in ajutorul contabililor precum si a celor ce se ocupa cu evidenta personalului in cadrul unei...
VECTORI Problema 1 #include <conio.h> #include <stdio.h> /** Se considera doi vectori cu componente reale.Se citeste un numar natural k. Sa...
1 INTRODUCERE Ce este un program? Un program este o listă de instrucțiuni date calculatorului pentru a le executa. Calculatorul va citi...