Вмассиве (0..12) найти номер элемента, наименее отличающегося от числа 3,1416. программа delphi 7
мак189
2
02.09.2019 11:50
5
Другие вопросы по теме Информатика
afkds
17.07.2019 11:50
Ертилеу
17.06.2019 06:20
Юлия111157
17.06.2019 06:20
Olivia01211924
30.04.2021 12:11
dduma030
30.04.2021 12:16
ilyaska10
30.04.2021 12:17
Zhurenko13
30.04.2021 12:18
NaumYT
30.04.2021 12:20
Популярные вопросы
- Сколько атомов и молекул содержит водород количеством вещества 4, 7 моль?...
2 - Дайте название веществам и укажите, какие из них являются изомерами....
3 - Характеристика елены из князя серебряного примерами из текста...
2 - Укажите верные (В) или неверные (H) ответы. 1) 2018 (год) — составное порядковое...
2 - Запишите 3–4 синонимичных выражения к словосочетаниям. Например: фальшивые купюры...
1 - Подумай проведет ли воздух электрический ток...
2 - синквейн к слову рассказ пример: Р а с с к а з...
2 - Написать простую игру в Питоне про угадывания дверей, после каждой открытой...
1 - Чем схожи и различаются толстый и тонкий в рассказе чехова и характеристики...
2 - 312. Разложите на множители двучлен: 1) 20а?ь — 45by?;2) 64p5 – 36рзq? ;...
3
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.