1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Помогите С Решением Задачи Обработки Одномерных Массивов.

Тема в разделе "Вопросы новичков и не только", создана пользователем Thrillseeker, 18 мар 2014.

  1. Thrillseeker

    Thrillseeker New Member

    Репутация:
    0
    Регистрация:
    21 апр 2013
    Сообщения:
    4
    Симпатии:
    0
    Задача:
    Переменной Х присвоить 1, если элементы массива В(40), образуют возрастающую последовательность и значение 0 в противном случае.

    Что сделано:
    Есть код, рабочий, но есть ли возможность показать сначала нормальный масмив, а уже потом конечный?

    uses crt;
    const N=40;
    var B:array[1..N] of integer;
    i,x:integer;
    begin
    clrscr;
    writeln ('massive');
    randomize;
    for i:=1 to N do
    begin
    B:=random(10);
    write(b);
    end;
    writeln;
    begin
    if (B)<(B[i+1])
    then x:=1
    else x:=0;
    writeln (x);
    readln
    end;
    end.

    В сети нашел другой код:

    uses crt;
    const
    n=10;
    var a:array[1..n] of integer;
    var i,j,b,x:integer;
    begin
    clrscr;
    for i:=1 to n do
    begin
    a[ i]:=trunc(random*10);
    write(' ',a[ i]);
    end;
    writeln;
    write('b=');
    read:)ooo:;
    x:=0;
    for i:=1 to n do
    begin
    if a[ i]=b then
    begin
    for j:=1 to (i-1) do
    if (a[j]>0) and (a[j] mod 2=0) then
    x:=x+a[j] else x:=0;
    break;
    end;
    end;
    write(x);
    end.
     
  2. Orlando

    Orlando New Member

    Репутация:
    0
    Регистрация:
    5 ноя 2011
    Сообщения:
    3
    Симпатии:
    0
    Тут ты сравниваешь только два элемента из 40ка нужных: if (B)<(B[i+1])
    Включи эту проверку в for чтобы просмотреть все элементы массива и сравнить соседние.
    Если хоть один раз вернет false тогда в Х записывай ноль, завершай цикл и выводи ответ.
     
Загрузка...

Поделиться этой страницей