Регистрация
bondarenkoadeli
05.11.2020 11:28
Информатика
Есть ответ 👍

Составить программу поиска больших чем соседние элементов массива l из 16 чисел. значения элементов массива рассчитать по формуле cosd/d,где d номер элемента массива.

297
356
Посмотреть ответы 2

Ответы на вопрос:

Djdjdjdjdjje
Djdjdjdjdjje
4,6(93 оценок)
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.
gorbunovayulia
gorbunovayulia
4,5(7 оценок)
Максимальное количество страниц 5

Популярно: Информатика