Ответы на вопрос:
Достоверность информации - это показатель качества информации, означающий ее полноту и точность. достоверная - земля круглая.
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.
Популярно: Информатика
-
gelyusya13.11.2021 12:47
-
ПолныйPizdec09.02.2023 16:46
-
Theboss00702.02.2023 19:07
-
умник2005614.04.2021 22:33
-
Danya001105.10.2020 03:16
-
egorik250602.11.2022 10:49
-
polycononova2007.07.2020 15:25
-
Суховруктик13.10.2021 18:46
-
Отличницааа520.09.2022 06:23
-
бомж2304.12.2022 17:56