Bir o‘lchovli massiv elementlarni kompyuter xotirasiga kiritish va chiqarish. Massiv elementlarini kiritish va chiqarish sikl, kiritish va chiqarish operatorlari orqali amalga oshiriladi.
Masalan: 50 ta elementdan iborat A massiv elementlari quyidagicha kiritiladi:
for i:=1 to 50 do
read(A[i]);
Massiv elementlarini chiqarish quyidagicha amalga oshiriladi:
for i:=1 to 50 do
write(B[i]);
Misol. X(x1,x2,...,x20) massivning musbat elementlari yig‘indisini hisoblash dasturini tuzing.
program summa(input,output);
type n:=1..20
var
x:array[n] of real; i:integer; s:real;
begin
s:=0;
for i:=1 to 20 do
read(x[i]) {massiv elementlarini kiritish}
for i:=1 to 20 do
if x[i]>=0 then s:=s+x[i];
writeln('s=';s);
end.
Do'stlaringiz bilan baham: |