"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

program masivs_2;
uses crt;
var A:array[1..10] of
integer;
i:integer;
begin clrscr;
randomize;
for i:=1 to 10 do
A[i]:=random(8)+3;
for i:=1 to 10 do
write(A[i]:4);
end.
{definē masīvu ar 10 integer tipa elementiem}
{masīva aizpildīšana ar gadījuma skaitļiem*}
{masīva elementu vērtību izvade uz ekrāna}
Piezīme.*{dators “iedomājas” skaitli no intervāla [3;10], jo random(8) iniciē skaitli
no intervāla [0,7], bet pieskaitot 3, A[i] vērtību intervāls ir [3,10].}
1.8.4. Masīvu apstrāde
Bieži nākas aprēķināt masīva elementu summu, to vidējo vērtību, noteikt maksimālās
vai minimālās elementu vērtības un to kārtas numurus, nomainīt atsevišķu elementu
vērtības ar citām u.t.t.
Viendimensiju masīva elementu summu nosaka:
s: =0
for i:= 1 to n do S:=S+a[i];
bet to reizinājumu:
r:=1;
for i:=1 to n do r:=r*a[i];
Piemērs. Meteoroloģiskā stacija ik pēc divām stundām reģistrē gaisa temperatūru. Sastādīt
programmu, kura ļauj ievadīt iegūtos mērījumus un aprēķina diennakts vidējo
gaisa temperatūru. Tātad diennaktī tiek veikti 12 neatkarīgi mērījumi.
program Meteo_stacija;
uses crt;
const n=12;
var sum,vid:real;
i: integer;
M:array[1..n] of real;
begin clrscr;
for i:=1 to n do
begin
{definē n real tipa elementu masīvu}
{aizpilda masīva elementus ar mērījumu
vērtībām}
38