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

Question

Информатика

Сергеич

23 июля, 09:30

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мартимьян · 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.