Question

В массиве (0..12) найти номер элемента, наименее отличающегося от числа 3,1416. Программа Delphi 7

Answer 1

program test;

var

i,l:integer;

a:array[1..12] of real;

m:real;

begin

for i:=1 to 12 do

read(a[i]);

m:=abs(a[1]-3.1416);

l:=1;

for i:=2 to 12 do

begin

if abs(a[i]-3.1416)<m then

begin

m:=abs(a[i]-3.1416);

l:=i;

end;

end;

write(l);

end.