👤
a fost răspuns

Se considera tablourile unidimensionale A[1..100] si B[1..100], indicii si componentele carora sunt numere naturale. Scrieti un program PASCAL care calculeaza numarul de cazuri in care componentele cu acelasi indice ale ambelor tablouri sunt egale, adica A[i]=B[i].
Mersi

Răspuns :

Program Tema;

Var A,B:array[1..100] of integer;
       i,nr:integer;
Begin
nr:=0;
writeln('Introduceti numerele pentru tabloul A: ');
(*Valori introduse cu spatii intre ele*)
for i=1 to 100 do
read(A[i]);
writeln('Introduceti numerele pentru tabloul B: ');

for i=1 to 100 do
begin
read(B[i]);
if B[i]=A[i] then
nr:=nr+1;
end;

writeln('Nr de elemente cu acelasi indice egale este: ',nr);
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