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

133

256

Посмотреть ответы 2

Ответы на вопрос:

рашад10

Информатика

4,4(38 оценок)

Var a: array[1..10] of integer; q: boolean; i: integer; begin randomize; q: = false; writeln ('исходный массив'); for i: =1 to 10 do begin a[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.