Массив a[1..10] заполните случайными целыми числами в диапазоне от 1 до 10. Определите, есть ли в массиве элемент, равный 5. Ответ выведите в виде слов "Да" или "Нет". В общем найдите мою ошибку(у меня выводится только 1 элемент, а не 10) Program shist; Var a:array[1..10] of integer; i:integer; Begin For i:=1 to 10 do a[i]:=Random(10)+1; writeln (Исходный массив); For i:=1 to 10 do begin write (a[i], ); writeln; writeln (Есть ли в массиве элемент, равный 5?); break; end; if a[i]=5 then write (Да) else write (Нет) End. И вот что получилось Исходный массив 7 Есть ли в массиве элемент, равный 5? Нет

Var a:array[1..10] of integer;q:boolean;i:integer;BeginRandomize;q:= false;writeln (Исходный массив);For i:=1 to 10 do begina[i]:=Random(10)+1;write (a[i], );if (a[i]=5) then q:=true;end;writeln;if (q) then writeln(da) else writeln(net);end.