Ответы на вопрос:
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.
Популярно: Информатика
-
DANIL79NR28.04.2021 04:32
-
Vkomarova11.07.2021 13:14
-
nasta08606.01.2020 19:23
-
P4ndainst15.10.2020 18:00
-
vztositgicgc14.03.2021 19:15
-
Nikto5801.09.2020 10:56
-
lollllla109.02.2023 00:27
-
yanemykina201427.06.2021 22:58
-
tanya2017kazanova07.03.2022 20:43
-
даня100305.08.2021 11:09