2 / 2 / 0
Регистрация: 09.01.2010
Сообщений: 43
1

Дано целое число N и набор из N вещественных чисел.....

01.04.2010, 23:49. Показов 1395. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2010, 23:49
Ответы с готовыми решениями:

Дано целое число N и набор из N вещественных чисел...
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую...

Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести: A1N, A2N–1, ..., AN–12, AN
Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1N,...

Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора
нужно написать через array Series7. Дано целое число N и набор из N вещественных чисел. Вывести...

Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора...
Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые...

1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
02.04.2010, 09:45 2
Лучший ответ Сообщение было отмечено Spawnn как решение

Решение

У Вас не написана тема, последовательности или массивы. Думаю первое, тогда так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const max=100;
var a,b:real;
    n,i,k:byte;
begin
clrscr;
repeat
write('Размер последовательности n=');
readln(n);
until n in [1..max];
writeln('Введите числа последовательности:');
k:=0;
readln(a);
for i:=2 to n do
 begin
  readln(b);
  if b>=a then
   begin
    k:=i;
    break;
   end;
  a:=b;
 end;
write('Результат=',k);
readln
end.
0
02.04.2010, 09:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2010, 09:45
Помогаю со студенческими работами здесь

Дано целое число N и набор из N целых чисел, Вывести сумму чисел из данного набор, расположенных между последними двумя нулями
Здравствуйте! Помогите решить задачу. Pascal. Дано целое число N и набор из N целых чисел,...

дано целое число К и набор ненулевых целых чисел
помогите решить задачу дано целое число К и набор ненулевых целых чисел;признак его завершения -...

Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из этого набора
Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru