дано n вещественных чисел (n<100) вывести количество элементов равных 0 и количество соседей отрицательных чисел с помощью паскаля
Ответы
Ответ дал:
1
Ответ:
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
eradchenko2004:
Просто ОТ ДУШИ
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад