Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Дмитрий Трюхан
0 / 0 / 0
Регистрация: 18.11.2014
Сообщений: 13
#1

В последовательности B1,B2.,Bn определить количество расположенных рядом двух положительных чисел - Turbo Pascal

28.11.2014, 22:14. Просмотров 253. Ответов 1
Метки нет (Все метки)

Помогите с программой и блок-схемой!!!

В последовательности B1,B2...,Bn определить количество расположенных рядом двух положительных чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2014, 22:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В последовательности B1,B2.,Bn определить количество расположенных рядом двух положительных чисел (Turbo Pascal):

В одномерном массиве с К элементов определить количество расположенных рядом двух чисел с разными знаками
Помогите с программой и если можно блок-схемой!!!! В одномерном массиве с К...

Определить число соседств двух положительных чисел в последовательности
. С клавиатуры вводится натуральное число n, действительные числа а1, … ,an. ...

Определить число соседств двух положительных чисел в последовательности
Дана последовательность n действительных чисел: a1,a2,...,an. Определить число...

В последовательности определить число соседств двух положительных чисел
помогите пожалуйста решить задачу! даны натуральное число N и...

Рекурсия. Определить количество положительных чисел в последовательности
Помогите с программой пожалуйста: Написать рекурсивную программу которая,...

В последовательности целых чисел определить количество положительных элементов
В последовательности целых чисел определить количество положительных элементов,...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,650
Записей в блоге: 1
29.11.2014, 10:12 #2
Лучший ответ Сообщение было отмечено Дмитрий Трюхан как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const nmax=100;
Var B:array[1..nmax] of real;
    i,n,count:byte;
Begin
    Repeat
     write('Введите N: ');
     readln(n);
    Until (n>=1)and(n<=nmax);
    For i:=1 to n do
    Begin
      B[i]:=-5+random*10;
      write(B[i]:6:2)
    End;
    writeln;
    For i:=1 to n-1 do
     if (B[i]>0)and(B[i+1]>0) then inc(count);
    writeln('Соседств положительных чисел = ',count);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 10:12
Привет! Вот еще темы с решениями:

В одномерном массиве найти максимальное количество одинаковых положительных и отрицательных элементов, расположенных рядом.
В одномерном массиве найти максимальное количество одинаковых положительных...

Определить количество соседств двух отрицательных чисел в последовательности
1) Даны: действительные числа r1, r2, r3,...., r20. Определить количество...

Определить количество соседств двух отрицательных чисел в последовательности
прошу помощи Даны действительные числа {r}_{1}, \: {r}_{2}, \: ..., \:...

В одномерном массиве определить количество двух соседних положительных чисел
Напишите код пожалуйста :sorry:.Определить в одномерном числовом массиве A,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru