Question

Scrieți definiția completă a subprogramului F, care primește prin intermediul parametrului n un număr natural nenul (1≤n≤9), iar prin intermediul parametrului a, un tablou unidimensional care conţine n valori naturale, fiecare dintre acestea reprezentând câte o cifră a unui număr. Astfel, a0 reprezintă prima cifră a numărului, a1 a doua cifră, etc.

Subprogramul furnizează prin parametrul k o valoare naturală egală cu numărul obţinut din cifrele pare reţinute în tabloul a sau valoarea -1 dacă în tablou nu există nicio cifră pară.

Answer 1

Aceasta e procedura
Type numar=array[1..9] of integer;
procedure cifre_pare(nr:numar;n:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
begin
if nr[i] mod 2=0 then
k:=10*k+nr[i];
end;
end;

Aceasta e un exemplu:
Program Tema;
Type numar=array[1..9] of integer;
procedure cifre_pare(nr:numar;n:integer;var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
begin
if nr[i] mod 2=0 then
k:=10*k+nr[i];
end;
end;

var cifre:numar;
    n,rezultat,i:integer;
Begin
writeln('Introduceti numarul de cifre');
readln(n);
writeln('Introduceti cifrele');
for i:=1 to n do
read(cifre[i]);

cifre_pare(cifre,n,rezultat);
writeln('Nr din cifre pare:',rezultat);
End.