👤
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 că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari