Ответы на вопрос:
Var a: array[1..7] of integer; i: integer; n1: real; begin writeln('введите 7 целых чисел'); for i: =1 to 7 do begin repeat read(n1); if (n1< > round(n1)) then writeln('необходимо целое число'); until (n1=round(n1)); a[i]: =round(n1); end; for i: =1 to 7 do begin if a[i]< 0 then a[i]: =-1; end; writeln('полученный массив: '); for i: =1 to 7 do write(a[i]: 5); writeln(''); end.
Популярно: Информатика
-
Ekaterina78512.04.2022 04:33
-
kattikat55529.06.2021 02:14
-
olesazato30.01.2020 17:09
-
КЁНУЛЬ0714.08.2021 11:15
-
zbwbsh15.01.2022 06:12
-
Евус111125.02.2022 10:10
-
nayahoff12307.06.2020 06:19
-
ВикторияГога24.08.2021 15:58
-
FanatikOutlast22.02.2020 01:13
-
MimINL18.05.2020 00:21