Вопрос по информатике:
Составить программу поиска больших чем соседние элементов массива L из 16 чисел. Значения элементов массива рассчитать по формуле CosD/D,где D номер элемента массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.04.2015 19:45
- Информатика
- remove_red_eye 10895
- thumb_up 15
Ответы и объяснения 1
VAR
i: Integer;
a: Array [1..16] of Real;
BEGIN
For i := 1 to 16 do begin
a[i] := Cos(i) / i;
Writeln('L[',i,'] = ',a[i]); End;
Writeln;
For i := 2 to 15 do
If (a[i] > a[i-1])and(a[i] > a[i+1]) then Writeln('L[',i,'] = ',a[i]);
END.
- 03.04.2015 21:08
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.