yuxarıdakı cavabda bir mexaniki səhv oldu.
if-else bloklarındakı [code]musbet += [i][/code] kodu belə düzəldilməlidir: [code]musbet += [a][/code]
ikinci sual üçün python əsasında psevdokod:
[code]massiv = [a1, a2, ... an]
musbet = []
menfi = []
sifir = []
for a in massiv:
if a >0:
musbet += [i]
elif a<0:
menfi +=[i]
else:
sifir += [i]
[/code]
Çoxdandlr Pascal ilə məşğul olmadığımdan xüsusi halda qisa alqoritmi yazacam.
1)Bu məsələdə əslində 48-ə bölunən ədədlərin sayını müəyyən etmək kifayətdir. Çünki 48-ə bölünən həm 3-ə həm də 24-ə bölünür. Proqramin əsas hissələri aşağıdakı kimi olacaq.
[code]
say=0
for i=100 to 999
if i mod 48 =0 then say=say+1
[/code]
Ümumi halda isə bela olacaq:
[code]
say=0
for i=100 to 999
begin
if i mod 3 =0 then
begin
if i mod 48=0 and i mod 24=0 then say=say+1
end
end
[/code]
2)2-ci məsələ bir az aydin olmadi.
Pascalda 4 rəqəmli natural ədədin rəqəmlərini ayırmaq
Massiv orta elementləri – Pascal.
Pascal proqramini hardan yükləyim
Pascal proqramlaşdırma dilindә massivin emalı