Question

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

Answer 1

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: