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

Question

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

Comments

Тебе всю программу или саму идею?

---

Окно или консоль?

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)

begin

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

l:=i;

end;

end;

write(l);

end.