Информатика, опубликовано 2018-08-22 20:36:22 by Гость
Составить программу поиска больших чем соседние элементов массива L из 16 чисел. Значения элементов массива рассчитать по формуле CosD/D,где D номер элемента массива.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на