👤
a fost răspuns

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

Răspuns :

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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari