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;
|