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) выполняется всегда, поэтому оно вообще не нужно
Сумма=7650
Объяснение:
Программа:
var sum:integer;
begin
sum:=0;
for var i:=100 to 200 do begin
if i mod 2=0 then
sum:=sum+i;
end;
writeln (sum);
end.