Question

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

Answer 1

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.