Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
Kreverko
0 / 0 / 0
Регистрация: 21.05.2013
Сообщений: 6
1

Вводиться последовательность из N целых чисел. Является ли последовательность убывающей?

21.05.2013, 14:26. Просмотров 1851. Ответов 1
Метки нет (Все метки)

Вводиться последовательность из N целых чисел. Является ли последовательность убывающей?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2013, 14:26
Ответы с готовыми решениями:

Проверить, является ли последовательность убывающей
записать алгоритм решения задачи в виде блок-схемы, но вы напишите в паскале я сам его в блок схемы...

Проверить, является ли данная последовательность целых чисел упорядоченной по убыванию
Проверить, является ли данная последовательность целых чисел упорядоченной по убыванию. Если нет,...

Является ли последовательность убывающей
Всем привет! помогите пожалуйста срочно решить задачи №1. Вводится последовательность из N целых...

Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией
Помогите пожалуйста написать программу на языке Паскаль, без использования массива.

Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз...

1
Puporev
Модератор
56358 / 43130 / 29833
Регистрация: 18.05.2008
Сообщений: 102,497
21.05.2013, 14:44 2
Лучший ответ Сообщение было отмечено Kreverko как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n,i,a,b:integer;
    f:boolean;
begin
write('n>1 n=');
read(n);
writeln('Ââåäèòå ',n,' öåëûõ öèñåë');
f:=true;
read(a);
for i:=2 to n do
 begin
  read(b);
  if b>=a then f:=false;
  a:=b;
 end;
if f then write('ÏîñëåäîâГ*òåëüГ*îñòü óáûâГ*ГѕГ№Г*Гї')
else write('ÏîñëåäîâГ*òåëüГ*îñòü Г*ГҐ óáûâГ*ГѕГ№Г*Гї')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2013, 14:44

дана последовательность чисел, являетсяли она убывающей?
форумчане) помогите пожалуста с написанием программы в паскале:= дана последовательность чисел,...

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой...

Последовательность целых чисел
дана последовательность целых чисел a1,a2...an.образовать новую последовательность выбросив из...


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

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

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