Informatika va at

9.15. var D: array [ 1..10, 1..10 ] of real; S: real;

S  hisoblansin.

9.16. var A: array[ 1..10, 1..10] of integer;

A matritsa quyidagi ko'rinishda to'ldirilsin:

a) b) v)

9.17. var A: array[1..6, 1..9] of real;

x: array[1..9] of real;

A jadval quyidagi qoida bo'yicha to'ldirilsin: .

18. 
    type oy=(yan,fev,mar,apr,may,iyn,iyl,avg,sen,okt,noy,dek);
    

kun=(dush, sesh, chor, paysh, juma, shanba, yaksh,yoq);

kalendar = array [oy, 1..31 ] of kun;

var K : kalendar;

Yil kalendari K haftaning mos kunlari bilan to'ldirilsin (mavjud bo'lmagan sana “yoq” deb ko'rsatilsin). Yil kabisa yili emas va 1 yanvar- dushanba деб hisoblansin (K[yan,1]:= dush; K[yan, 2]:= sesh;... K[fev,29]:=yo’q;... ).

9.19. var A: array[1..20,1..20] of boolean;

B: array[1..19,1..19] of boolean;

n, k: 1..20;

Berilgan A matritsaning n-satri va k-ustunini o'chirish orqali V matritsa hosil qilinsin.

9.20. var A: array [1..15, 1..20] of integer;

b: array [1..15] of boolean;

A matritsadan b vektor hosil qilinsin. Quyidagi ko'rsatilgan shartlar bajarilsa, b[k] elementi true, aks holda false qiymat qabul qilsin:

a) A matritsaning k- ustuni nollardan iborat;

b) A matritsaning k- satr elementlari kamayish bo'yicha tartiblangan;

v) A matritsaning k- satri simmetrik.

9.21. const n=8; m=12;

var k: integer; c: array[1..n,1..m] of integer;

S matritsaning «maxsus» elementlar soni k aniqlansin. Biror element «maxsus» deyiladi, agar:

a) u o'zi joylashgan ustundagi boshqa elementlar yig'indisidan katta va

b) u o'zi joylashgan satrda chapdagi elementlardan katta, o'ngdagilaridan esa kichik bo'lsa.

9.22. var K: integer; C: array [ 1..13, 1..18 ] of char;

Berilgan S jadvaldagi har xil elementlar soni-k aniqlansin (ya'ni takrorlanuvchi elementlar bitta deb hisoblansin).

9.23. 20x30 o'lchamli haqiqiy matritsa berilgan.

Uning satrlari kamaymaydigan ko'rinishda tartiblansin:

a) birinchi elementlar bo'yicha;

b) elementlar yig'indisi bo'yicha;

v) eng katta elementlari bo'yicha.

9.24. Biror bir shaxmat musobaqasida qatnashgan n ta shaxmat­chining natijalari T jadvalda berilgan (n>2):

T: array[1..n,1..n] of (Y, D, M, X),

bu yerda T[i,j]=Y, agar i-chi ishtirokchi j-chi ishtirokchi ustidan g'alaba qozongan bo'lsa (bunda T [j,i]=M), T[i,j]=D, agar i-chi va j-chi ishtirokchilar durang o'ynagan bo'lsa va T[i,i]=X. Jadvalning ko'rinishi quyidagicha bo'lishi mumkin (n=3 uchun)

Yutuq uchun 3 ochko, durang uchun 1 ochko, mag'lubiyat uchun 0 ochko beriladi. Ishtirokchilar nomerlari ularning to'plagan ochkolari bo'yicha o'smaydigan tartibda chop qilinsin.

9.25. type ism = (Alisher,..., Rustam);

qarindoshlik = (ugil, qiz, ota, ona, yoq);

var QJ: array[ism,ism] of qarindoshlik;

I,V,D: ism; k: integer;

Ziddiyatsiz QJ qarindoshlik jadvali asosida (QJ[x,u]=yoq, agarda u ismli odam x ismli odamning ota-onasi ham, farzandi ham bo'lmasa, T[x,u] = ugil, agar u x ning o'g'li bo'lsa va hokazo) o'zgaruvchiga qiymat berilsin:

a) V- I ismli kishining nevarasidan birining ismi, agar u mavjud bo'lsa;

b) D- I ismli kishining birorta amakisining ismi (amaki sifatida ota-onasining aka-ukalarini tushunish kerak);

v) k- I ismli kishi jiyanlarining soni berilsin.

9.26. const n = 256;

type screen = array[1..n, 1..n] of 0..1;

var S: screen;

S matritsa, uning elementlarini markaz atrofida 90° ga soat millariga teskari yo'nalishda burish bilan qayta aniqlansin.