O‘zbekiston respublikasi xalq ta’limi vazirligi samarqand viloyati xalq ta’limi xodimlarini qayta tayyorlash va ularning malakasini oshirish hududiy markazi m avzusidagi

Yechish: Birinchi massivning har bir elementi ikkinchi massivning barcha
elementlari bilan taqqoslab chiqiladi. So‘ngra ikkinchi massivning har bir elementi birinchi massivning barcha elementlari bilan taqqoslab chiqiladi. Lekin, massivlarni to‘plam deb olsak, ularni to‘plam xususiyatlaridan kelib chiqib, ikkita miqdorni taqqoslash singari taqqoslash mumkin.

Program Masala_3;

Uses Crt;
Const nm=100;
Var
n,m,e : Integer;
a,b : Set of 0..nm;
i : Integer;
Begin
TextColor(Yellow); TextBackGround(Blue); ClrScr;
a:=[]; b:=[];
Write('A massiv o‘lchamini kiriting : '); ReadLn(n);
Write('B massiv o‘lchamini kiriting : '); ReadLn(m);
WriteLn('A massiv elementlarini kiriting:');
For i:=1 To n Do
begin
Write('A(',i,')='); ReadLn(e); a:=a+[e];
end;
WriteLn('B massiv elementlarini kiriting:');
For i:=1 To m Do
begin
Write('B(',i,')='); ReadLn(e); b:=b+[e];
end;
WriteLn;
If a=b Then WriteLn('O‘xshash') Else WriteLn('O‘xshash emas');
End.

Masala-4. A(n) butun qiymatli massiv elementlari ichida eng ko‘p takrorlanganini toping. Bunday elementlar ko‘p bo‘lsa, bittasini chop eting.

Yechish: Eng ko‘p takrorlangan element qiymatini MAX bilan, tartib raqamini esa MAXI bilan belgilaymiz. Dasturi quyidagicha:


Program Eng_kop_takror;
Uses Crt;
Const n1=100;
Var a:Array[1..n1] of Integer;

max,maxn,sum:Integer;

i,j,n:Integer;
Begin
TextColor(Yellow); TextBackground(Blue); ClrScr;


WriteLn(' Massiv o‘lchamini kiriting:');
Write(' N = ');ReadLn(n);
WriteLn(' Massiv elementlarini kiriting:');
For i:=1 To n Do
Begin
Write('A(',i,') = ');ReadLn(a[i]);
end;
max:=1; maxn:=1;
For i:=1 To n-1 Do
Begin
sum:=0;
For j:=i+1 To n Do
Begin
If a[i]=a[j] Then Inc(sum);
end;
If sum>max Then Begin max:=sum; maxn:=i; end;
end;
WriteLn; WriteLn('A(',Maxn,') = ',a[maxn],' element eng ko‘p takrorlanadi');
ReadLn;
End.

Masala-5. A(N) butun sonli massivni o‘sish (kamayish) tartibida saralovchi dastur tuzing (qo‘shimcha massivdan foydalanilmasin).