 |
|
|
15.11.2012, 21:57
|
#1 (ссылка) |
|
Новичок
Регистрация: 15.11.2012
Сообщений: 1
Репутация: 0
|
Нахождение числа, стоящего не на своем месте в pascal abc
В диапазоне убывающих чисел найти число, стоящее не на своем месте (указать номер позиции числа). Программа должна быть написана на Pascal ABC
Для примера: 150 120 140 130 110 (120 стоит не на своем месте, номер позиции 2) |
|
|
19.11.2012, 16:31
|
#2 (ссылка) |
|
Новичок
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
|
yarovik,
Код:
uses crt;
var a,b,n,i,k:integer;
begin
repeat
write('Количество чисел больше 1 n=');
read(n);
until n>1;
writeln('Вводите числа по убыванию, одно не на месте');
read(a);
k:=0;
for i:=2 to n do
begin
read(b);
if (b<=a)and(k=0) then k:=i;
b:=a;
end;
write('Введено неверно чиcло номер ',k);
end.
|
|
|
| Ads | |
| Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Проблема с нахождение драйверов на ноутбук. | FD_GoD | Драйвера | 5 | 15.10.2012 21:38 |
| Помогите с нахождение вируса | vredinabl | Безопасность | 0 | 21.02.2011 01:03 |
| Нахождение максимальной длины слова | EvaBraun | Программирование | 0 | 11.01.2011 21:08 |
| Паскаль: две задачи (сумма и нахождение натурального числа из заданных) | sane4ek | Программирование | 3 | 08.03.2010 07:52 |
| Установлен новый рекорд точности вычисления числа ПИ | Антон | Компьютерные новости | 11 | 29.10.2009 10:30 |
