Turbo Pascal Dizi 2 örnek

// 10 elemanlı bir tamsayı dizisinin ortalamasına en yakın
// tamsayıdan dizide varmıdır varsa hangileridir?
//  a=(12, 3, 21, 9, 8, 11, 26, 1, 10, 4)

program en_buyuk;
var
 a:array[1..10] of integer;
 i,tp,k,m,n:integer;
 ort,f1,f2:real;
begin
 tp:=0;
 for i:=1 to 10 do begin
  write(i,’ .elemani gir..’);readln(a[i]);
  tp:=tp+a[i];
 end;
 ort:=tp/10;
 k:=trunc(ort);
 f1:=abs(ort-k);
 f2:=abs(ort-(k+1));
   if(f1<f2) then begin
     m:=k;n:=k;
   end;
   if(f1=f2) then begin
     m:=k;n:=k+1;
   end;
   if(f1>f2) then begin
     m:=k+1;n:=k+1;
   end;
   for i:=1 to 10 do
    if((a[i]=m)or(a[i]=n)) then writeln(a[i]);

 readln;
end.

VN:F [1.9.22_1171]
Rating: 0.0/10 (0 votes cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)