| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
wasile
Elev
Data inscrierii: 16/Mar/2008
Mesaje: 2
|
 Trimis: 16.03.2008 11:39 Titlul subiectului: Problema 21 |
|
|
Fie un sir de n numere intregi si un interval [a,b]. Scrieti un program care sa precizeze care este numarul de valori din sir care nu se gasesc in intervalul dat.
De exemplu, pentru n=10 si [10 , 420] si sirul de valori 1, 4, 7, 23, 90, 200, 440, 500, 501, 502, programul va afisa valoarea 7.
| Cod: |
program ex21;
var c,n,x,i,a,b:integer;
begin
readln(n,a,b);
c:=0;
for i:=1 to n do begin
read(x);
if (x<a) or (x>b)then c:=c+1;
end;
writeln(c);
end. |
|
|
| Sus » |
|
 |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 20.03.2008 16:46 Titlul subiectului: |
|
|
Verificat! Uite cum as rearanja eu:
| Cod: |
program prob21;
var c, n, x, i, a, b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('n='); readln(n);
c := 0;
for i := 1 to n do
begin
read(x);
if (x<a) or (x>b) then c := c + 1
end;
writeln(c);
end. |
 |
|
| Sus » |
|
|
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:18 Titlul subiectului: |
|
|
| Cod: |
{21. fie un sir de n numere intregi si un interval [a,b]. scrieti un program
care saprecizeze care este numarul de valori din sir care nu se gasesc in
intervalul dat}
program ex21;
var i,a,b,n,p,k:integer;
begin
write('n: '); readln(n);
write('a: '); readln(a);
write('b: '); readln(b);
k:=0;
for i:=1 to n do begin
write('nr: ');
readln(p);
if (p<a) or (p>b) then k:=k+1;
end;
write(k);
end.
|
|
|
| Sus » |
|
|
|
|
