Var mass:array[1..44] of integer; i:integer; begin randomize; for i:=1 to 44 do begin mass[i]:=(random(31)-random(19)); if (i>12) and (i<27) then writeln('номер ',i,' равен ',mass[i]); end; end.
Пример работы: номер 13 равен 15 номер 14 равен -17 номер 15 равен -16 номер 16 равен -3 номер 17 равен 10 номер 18 равен 29 номер 19 равен -17 номер 20 равен 1 номер 21 равен -1 номер 22 равен 8 номер 23 равен -16 номер 24 равен 26 номер 25 равен -4 номер 26 равен 15
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
