Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2010, 20:37   #1
Malloperro
 
Регистрация: 19.12.2010
Сообщений: 4
Восклицание Не могу найти ошибку.. одномерный массив, убывающая последовательность

Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым нулевым элементом убывающую последовательность

program prog1;
const n=10;
var a,b,c,i,k:integer;
begin
for[i]:= 1 to n do
begin
readln(a[i]);
if a[i]=0 then halt;
end;
for i:= 1 to n do
if a[i]=0 then
k:=a[i];
for i:=1 to k do
begin
while i>=2 do
k:=k-1;
if a[k]>a[k-1] then
writeln('true')
else
writeln('false')
end;
end.
Malloperro вне форума Ответить с цитированием
Старый 23.12.2010, 21:15   #2
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Код:
const n=10;
var
  A:Array[1..N] of Integer;
  b,c,i,k:integer;
  Flag:Boolean;
begin
for i:= 1 to n do
begin
Write('Vvedite ',i,' element ');
readln(a[i]);
end;
For i:=1 to N do Write(A[i]:3);
Writeln;
for i:= 1 to n do
if a[i]=0 then
Begin
  k:=i-1;
  Break
End;
Flag:=True;
For i:=1 to K do
For c:=i+1 to K do
If A[i] < A[c] then
Begin
  Flag:=False;
  Break
End;
If Flag then Writeln('Da')
        Else Writeln('Net');
Readln
End.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив, убывающая последовательность (FreePascal) Malloperro Помощь студентам 8 02.11.2011 23:38
Не могу найти ошибку 18541 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 16.12.2010 15:53
Не могу найти ошибку IgorGO Microsoft Office Excel 11 17.09.2010 16:28
не могу найти ошибку! novi4ok_Delphi Помощь студентам 4 24.04.2010 21:46
Не могу найти ошибку(С++) Yura_n Помощь студентам 8 20.01.2009 12:36