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) выполняется всегда, поэтому оно вообще не нужно
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) выполняется всегда, поэтому оно вообще не нужно
1) program test;
var a,b: integer;
begin
read (a,b);
writeln;
if a mod 2 =0 then writeln (a);
if b mod 2 = 0 then write (b);
end.
2) program test;
var a,s: integer;
begin
s:=0;
readln(a);
while a>0 do begin
s:=s+a mod 10;
a:=a div 10;
end;
if s<10 then write ('Сумма цифр меньше 10') else write ('Сумма цифр больше 10');
end.