Se da un tablou liniar cu n cimponente numere intregi.Determinati numarul elementelor cu valorile cuprinse intre 1 si 100.(pascal)
Urgeeent!
Dau coronita
Răspunsuri la întrebare
Răspuns de
0
program Interval;
const nmax=100;
type Tablou=array[1..nmax] of integer;
var A:Tablou;
N, i, contor: integer;
begin
write ('N='); read(N);
writeLn ('dati elementele Tabloului:');
for i:=1 to N do
begin
write('A[',i,']=');
readln(A[i]);
end;
contor:=0;
for i:=1 to N do
if (A[i]>1) and (A[i]<100) then inc(contor);
writeln(contor,' componente se afla intre 1 si 100');
end.
Alte întrebări interesante
Matematică,
8 ani în urmă
Franceza,
8 ani în urmă
Informatică,
8 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Limba română,
9 ani în urmă