Написать программу которая формирует одномерный массив ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ). pascal abc !
130
195
Ответы на вопрос:
Uses crt; var t: array [1..12] of real; i: integer; begin {цикл ввода} for i: =1 to 12 do begin write('температура [',i: 2,'] = '); readln(t[i]); end; writeln(); {поиск отрицательных элементов} writeln('отрицательные температуры'); for i: =1 to 12 do begin if t[i]< =0 then writeln(t[i]); end; readln(); end.
1
Объяснение:
Дизъюнкция (ИЛИ) Сложение [+, ∨] - истинно, когда хотя бы одно из значений истинно.
(((1 v 0) v 1) v A)
1 v 0 = 1 (т. к. хотя бы одно из значений истинно)1 v 1 = 1 (т. к. оба значения истинны)1 v A = 1 (Закон исключения констант)~~~~~~~~~~~
Закон исключения констант
A ∨ 1 = 1
A & 1 = A
A ∨ 0 = A
A & 0 = 0
~~~~~~~~~~~
Популярно: Информатика
-
ayzilyamannano01.05.2022 17:37
-
Лилия20000012.04.2023 11:49
-
sitkovskiygleb02.01.2022 11:31
-
GEgor00415.08.2020 11:02
-
NastushaJol27.12.2022 18:52
-
pupil8002222501.04.2021 17:50
-
Chicken1030.08.2020 01:51
-
mikstura7116.01.2023 01:26
-
daria251222.12.2020 04:34
-
Krutoi0chuvak09.12.2020 23:02