Word процессор ойнаси

Bir o’lchovli massivlarga oid misol-masalalarni bajarish shartlari

№	Shartlarni yozilishi	Vazifasi
1	if x[i]>0 then s:=s+x[i];	X massivning musbat elementlar yig’indisini hisoblash.
2	if x[i]<0 then s:=s+x[i];	X massivning manfiy elementlar yig’indisini hisoblash.
3	if x[i]>0 then s:=s*x[i];	X massivning musbat elementlar ko’paytmasini hisoblash.
4	if x[i]<0 then s:=s*x[i];	X massivning manfiy elementlar ko’paytmasini hisoblash.
5	if x[i]>0 then writeln(‘x[‘,i,’]=’,x[i]) else writeln;	X massivning musbat elementlarini ajratib olish.
6	if x[i]<0 then writeln(‘x[‘,i,’]=’,x[i]) else writeln;	X massivning manfiy elementlarini ajratib olish.
7	if x[i]>0 then begin k:=k+1; end;	X massivning musbat elementlarini sonini topish.
8	if x[i]<0 then begin k:=k+1; end;	X massivning manfiy elementlarini sonini topish.
9	if x[i]>0 then begin s:=s+x[i]; k:=k+1; end; V:=S/K;	X massivning musbat elementlarini o’rta arifmetikasini hisoblash.
10	if x[i]<0 then begin s:=s+x[i]; k:=k+1; end; V:=S/K;	X massivning manfiy elementlarini o’rta arifmetikasini hisoblash.
11	if int(x[i]/5)*5=x[i] then writeln(‘x[‘,i,’]=’,x[i]);	X massivning 5 ga karrali bo’lgan elementlarini ajratib olish.
12	if int(x[i]/5)*5=x[i] then s:=s+x[i];	X massivning 5 ga karrali bo’lgan elementlarini yig’indisini hisoblash.
13	if int(i/2)*2=i then s:=s*x[i];	X massivning indeksi juft bo’lgan elementlarini yig’indisini hisoblash.
14	If max	X massiv elementlarining eng kattasini topish.
15	If min>x[i] then begin min:=x[i]; end;	X massiv elementlarining eng kichigini topish.