Ответы на вопрос:
Код pascal. const n = 10; var a: array[1..n] of integer; i, c: integer; begin i : = 0; while 1 = 1 do begin if i = 10 then break; readln(c); if (c < = 29) and (c > = -20) then begin inc(i); a[i] : = c; end else writeln('число выходит за границы'); end; writeln('готово'); readln; end.вродь как-то так
Популярно: Другие предметы
-
Катя88111830.09.2022 04:52
-
Даниил1234566629.07.2020 20:02
-
snezoc22.07.2020 15:40
-
ПЛЮШЕВЫЙМШКА101.12.2021 04:56
-
камилла200904.04.2021 02:41
-
жанара0608.12.2021 15:38
-
753455808.03.2021 06:13
-
nadyalewoxtphe21.11.2020 03:03
-
7918551930507.12.2022 13:50
-
gjrdghhFafhj18.12.2022 09:08