48
matris = array [1…5, 1….6]
of real
Massivin hər hansı elementinə müraciət, massivin adı və düzbucaqlı mötərizə
içərisində bir-birindən vergüllü ayrılan indekslər vasitəsilə aparılır:
Məsələn :
var
A: matris;
begin
----------
Y= A[5, 2] + A[3, 4];
Misal 1.
10 elementdən ibarət massivin ən böyük elementini
və həmin elementin
massivdəki yerini tapmalı
Proqram M1;
const n =10;
type
vektor = array [ 1…n] of real;
var
A : vector;
max : real
k , i : integer;
begin
writeln (‘Massivin elementlərini daxil edin’) ;
for i:=1 to n do readln (A[i]);
max : = A [i]; k: = 1;
for i :=1 to n do
if max < A [i] then begin
max: A [i]; k: = i
end ;
writeln (‘max =’, max , ‘k = ‘, k)
end.
Misal 2.
A(n,m) massivin sətir elementlərinin hasilləri cəminin hesablanması
Proqram M2;
const n =3; m =2;
type matris = array [ 1…n, 1….m] of real;
var
A : matris;
i, j : integer;
downloaded from KitabYurdu.org
49
z, s : real ;
begin
for i:=1 to n do
begin
write (i, ‘- ci sətir elementləri: ‘) ;
for j :=1 to m do read (A [i,j]) ;
end ;
S : = 0;
for i : =1 to n do
begin
z : = 1;
for j := 1 to n do
z : = z
*
A [i,j] ;
s : = s + z ;
end;
writeln (‘cəm =’, max, s) ;
readln
end.
Dostları ilə paylaş: