👤
a fost răspuns

Se consideră liniar K[1..50] de numere întregi.Scrie un program PASCAL utilizând procedura carea afișează la ecran elementele pozitive.

Răspuns :

Răspuns:

program vector;

var k:array[1..50] of integer;

   n, i: integer;

begin

    write('Dati lungimea vectorului : ');

    readln(n);

    {Citeste elementele vectorului}

    for i:=1 to n do

        readln(k[i]);

    {Parcurgem vectorul si afisam elementele pozitive}

    for i:=1 to n do

        if k[i] > 0 then

           writeln(k[i]);

    readln;

end.

Explicație:

Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari