10 elemanlı bir sayı dizinin tam sayıya göre durumu?

[kursatorman]

Arkadaşlar aşağıdaki soruda yardımınıza ihtiyacım var. Soruyu yapamadım


10 elemanlı bir sayı dizisinin ortalaması eğer bir tamsayı ise bu tamsayıdan girilen dizide var mıdır? Varsa dizinin kaçıncı elemanıdır?

[kursatorman]

soru yapıldı teşekkürler

[MEHMET]

çözümünü yazarsan aynı soru için gelene yardımcı olmul olursun

[PowerSoft]

Sana yapacaklarını anlatayım...
Sende onun kodunu yaz bu şekilde sende öğrenmiş olursun...

Dizi : array [1..10] of Double;
meanVal :Double;
a: Double;
i:integer;
begin
Dizi[1]:=5.5;
.
.
.
Dizi[10]:=7;
meanVal := Mean(Dizi);//Dizinin elemanlarını toplayıp ortalamasını alır;
a:=meanval mod 1;
if a=0 then //sayı tam sayıdır;
for :=0 to 9 then
begin
if mainVal=Dizi[i] then //sayılar eşitmi bak;
showmessage(inttostr(dizi[i]));
end;
Kod olarak yazıp denemedim fakat sen bir dene;
end;