Question

Pascal
1.Adăugaţi în program o funcţie nouă, care determină valoarea maxima a componentelor dintr-un tablou unidimensional, transmis în ea în calitate de parametru, apelaţi această funcţie şi afişati rezultatul pe ecran .

2.Adăugaţi în program o funcţie nouă, care determină numărul componentelor dintr-un tablou unidimensional cu valorile egale cu 0. Apelaţi funcţia şi afişaţi rezultatul pe ecran. va rog

Answer 1

Program Tema;

Type intregi=array[1..100] of integer;
function maxim(numere:intregi;n:integer):integer;
var i,max:integer;
Begin
max:=-10000;
for i:=1 to n do
if numere[i]>max then
max:=numere[i];

maxim:=max;
End;

function num_zero(numere:intregi;n:integer):integer;
var i,nr_zero:integer;
Begin
nr_zero:=0;
for i:=1 to n do
if numere[i]=0 then
nr_zero:=nr_zero+1;

num_zero:=nr_zero;
End;
var n,i:integer;
var numere:intregi;
Begin;
writeln('Introduceti nr elemente:');
readln(n);
writeln('Introduceti elemente');
for i:=1 to n do
read(numere[i]);

writeln('Elementul maximum este:',maxim(numere,n));
writeln('Nr elemente egale cu zero este:',num_zero(numere,n));
End.