👤
MOLIPIEZ
a fost răspuns

Se considera tabloul A din n numere intregi, unde n≤100. Sa se scrie un program care calculeaza media aritmetica a numerelor impare mai mici ca 10 ridicate la puterea 6 si de numarat cate numere prime sunt in tablou.

Răspuns :

var a:array[1..100]  of integer;
n,i,p:byte;
s,x,k,l:integer;

begin
read(n);
writeln;

for i:=1 to n do begin
read(a[i]);
if (a[i] mod 2 = 1) and (a[i]<1000000) then begin
s+=a[i];
inc(k);
end;
l:=0;
for x:=1 to a[i] do if a[i] mod x = 0 then inc(l);
if l=2 then inc(p);
end;

writeln;
write('Media: ',s/k,' Prime: ',p);

end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari