Форум «Всё о Паскале» _ Задачи _ Задача на группы положительных чисел.
Автор: MeatCrash 19.06.2006 10:33
Вроде, уже создавал тему, но по странным причинам её не стало. Вот задача: дан одномерный массив целых чисел размерностью 20. Определите количество положительных групп в этом массиве. Группой называется последовательность, состоящая из 2-х и более положительных чисел, находящихся рядом.
Вот её код:
Program T_17_9; Const E=10; Type N=array[1..E]of real; Var m:N; i,group:byte; Begin For i:=1 To E Do begin writeln('Vvedite element massiva pod nomerom: ',i); readln(m[i]) end; group:=0; for i:=1 to E do If (m[i]>0) and (m[i+1]>0) Then begin group:=group+1;
end; writeln('koli4estvi polozitelnih grup ravno: ',group); End.
И не надо ничего удалять, сначала хотя бы объясните: зачем вы это делаете.
Автор: Bokul 19.06.2006 11:12
Цитата
Вроде, уже создавал тему, но по странным причинам её не стало. И не надо ничего удалять, сначала хотя бы объясните: зачем вы это делаете.
Никто не удаляет, почитай здесь http://forum.pascal.net.ru/index.php?showtopic=11474&st=5
MeatCrash, еще раз продублируешь тему - будет удален и источник и дубликат... http://forum.pascal.net.ru/index.php?showtopic=11515&hl=
У тебя в профиле есть кнопка - "найти все сообщения участника". Так вот, пользуйся ей...
Автор: MeatCrash 19.06.2006 18:19
Цитата(volvo @ 19.06.2006 11:00)
MeatCrash, еще раз продублируешь тему - будет удален и источник и дубликат... http://forum.pascal.net.ru/index.php?showtopic=11515&hl=
У тебя в профиле есть кнопка - "найти все сообщения участника". Так вот, пользуйся ей...
Сорри, Volvo. Просто не мог найти кнопку профиль, теперь зашёл через поиск пользователей, а уж там нашёл свои сообщения. Но я так и не понял, куда ушла та тема. Она ведь осталась в разделе задачи? Как будто её унесло в какую-то даль. Объяснишь? А то я в полной абстракции от всего этого.