Массив a[1..10] заполните случайными целыми числами - вопрос №454280211011 от КЕНДИПИК 25.04.2023 12:53

Question

Информатика: Массив 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

КЕНДИПИК · Answer

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....