Question

Implementați in limbajul Pascal o aplicație sa realizeze urmatoarele cerinte :
1)Contine un generator de numere aleatorii care sa furnizeze valori pentru punctele 2 si 3
2)Generati un sir aleator de 50 de litere mici . Aflati sirul si de cate ori apare in sir caracterul "c"
3)Generati un vector de 20 de numere intregi.Afisati vectorul si cel mai mic element din vector .​

Imi trebuie urgenttt !!

Answer 1

Răspuns:

program aleator;

var ch:char;

   num, i, cod, contor, minim:integer;

   A: array[1..20] of integer;

begin

 { punctul 1 }

 randomize;

 writeln('2) Sirul de 50 litere mici, generate aleator: ');

 contor:=0;

 for i:=1 to 50 do

   begin

     cod:=97+random(27);

     ch:=chr(cod);

     write(ch, ' ');

     if ch='c' then inc(contor);

   end;

   writeln;

   writeln('Caracterul ''c'' a aparut de ',contor,' ori');

   {generare vector din 20 numere intregi aleatorii}

   { si aflarea celui mai mic }

   minim:=102;

   for i:=1 to 20 do

     begin

       num:=random(100);

       A[i]:=num;

       if num<minim then minim:=num;

     end;

   writeln; writeln('3) vector cu 20 numere (elemente) aleatorii:');

   for i:=1 to 20 do

     write(A[i],'   ');

   writeln;

   writeln('cel mai mic element este ',minim);

end.

Explicație:

la vector am generat numai nenegative. Dacă doreşti şi negative mai medităm