Задано число x. вычислите s: s = cos x - sin x + |x-7| + x2-1

var

s, x:real;

begin

writeln('Введите x');

readln(x);

s:=cos(x)-sin(x)+abs(x-7)+x*2-1;

writeln('ответ ', s);

end.

Объяснение:

Беспроводная вычислительная сеть — вычислительная сеть, основанная на беспроводном принципе, полностью соответствующая стандартам для обычных проводных сетей. В качестве носителя информации в таких сетях могут выступать радиоволны СВЧ-диапазона. 

Виды

По дальности действия:

Беспроводные персональные сети (WPAN — Wireless Personal Area Networks). ...

Беспроводные локальные сети (WLAN — Wireless Local Area Networks). ...

Беспроводные сети масштаба города (WMAN — Wireless Metropolitan Area Networks). ...

Беспроводные глобальные сети (WWAN — Wireless Wide Area Network).

A[i]:=random(20)-10;

while (i>0)

if i<>0

Объяснение

Ошибка A[i]:=random(21); Твой диапазон [0;20]

Исправление A[i]:=random(20)-10;

Дальше можно находить элемент в массиве по разному, можно просто все элементы проверить, счётчик дойдёт до нуля - программа выведет "Не найден!", если счётчик не равен нулю, значит хотя бы 1 значение х в массиве было найдено.

Ошибка while (i<=N)

Исправление while (i>0)

Ошибка if i<=N

Исправление if i<>0

Условие (i<=N) выполняется всегда, поэтому оно вообще не нужно