Помогите PPPPLLLLIZZZZZZZZ!
Определить в данном векторе Р(m) количество пар соседних чисел,
являющихся противоположными.
Полный тупняк.
Полная версия: Задача на вектор
count := 0;
for i := 1 to m - 1 do
if P[i] = - P[i + 1] then inc(count);
Очень сложно?
Цитата(volvo @ 28.12.2005 12:02) 
count := 0;
for i := 1 to m - 1 do
if P[i] = - P[i + 1] then inc(count);
Очень сложно?
Нет, если кроме этой заморочек больше нет.
Как задать массив отрицательными значениями с помощью Random.
А то выдаёт ошибку 76.
А то выдаёт ошибку 76.
randomize;
a := random(21) - 10;
а в интервале от -10 до 10
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.