👤

Componentele unui tablou bidimensional cu m linii si n coloane prezinta numere intregi.De la tastatura se introduce o valoare intreaga x.Scrieti un program ce va determina de cite ori apare in tabloul dat valoarea x. IN PASCAL

Răspuns :

Program Tema;

var   a:array [1..100,1..100] of integer;
    i,j,m,n,x,nr:integer;
Begin
nr:=0;
writeln('Introduceti valoare de cautat tablou: ');
readln(x);
writeln('Introduceti nr linii tablou:');
readln(m);
writeln('Introduceti nr coloane tablou: ');
readln(n);
writeln('Introduceti matricea: ');

for i:=1 to m do
begin

for j:=1 to n do
begin;
read(a[i][j]);
if a[i][j]=x then
nr:=nr+1;
end;
(*Folosesc acest readln pentru a putea citi fiecare linie din matrice de pe o linie separata*)
readln;
end;
writeln('Nr de aparitii: ',nr);
End.