В массиве (0..12) найти номер элемента, наименее отличающегося от числа 3,1416. Программа Delphi 7
243
ОТВЕТЫ
program test;
var
i,l:integer;
a:array[1..12] of real;
m:real;
beginfor i:=1 to 12 do
read(a[i]);m:=abs(a[1]-3.1416);
l:=1;
for i:=2 to 12 do
beginif abs(a[i]-3.1416)<m then
beginm:=abs(a[i]-3.1416);
l:=i;
end;
end;
write(l);
end.
48
Отв. дан
Gavilore
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Anararius
Определите количество натуральных чисел, удовлетворяющих неравенству: 110100102 < x ...
2018-09-25 00:00:00
Евдокия
Пожалуйста посчитайте! Нужно решить задачи1) дана строка, удалить все ...
2018-09-25 00:00:00
Moralar
Купили 0.8 кг колбасы и 0.3 кг сыра. За ...
2018-09-25 00:00:00
Вацлав
Решите задачу. Из двух сел навстречу выехали машины. Скорость ...
2018-09-25 00:00:00