Ответы на вопрос:
ответ:
var k_nuley, k_sosedey, i : integer;
a : array [1..100] of real;
begin
read(n);
for i: = 1 to n do read(a[i]);
for i: = 1 to n do begin
if a[i] = 0 then begin
k_nuley : = k_nuley + 1;
if a[i + 1] < 0 then k_sosedey : = k_sosedey + 1;
if a[i - 1] < 0 then k_sosedey : = k_sosedey + 1;
end;
end;
write(k_nuley, k_sosedey);
end.
объяснение:
derzay, bratka
Популярно: Информатика
-
malyovana201423.03.2021 18:22
-
Саша0809200523.08.2020 18:09
-
Malia2102.12.2020 15:34
-
ALINAGREEN1326.02.2023 07:14
-
0mixa002.10.2022 06:28
-
albina100202.07.2022 19:31
-
kreker12808.07.2022 01:45
-
Girjd16.01.2021 03:08
-
zzaaiirra26.11.2021 12:42
-
jija200214.07.2020 15:25