Массив 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? нет
