• Написать 2 программы:
    1. Проверить, есть ли в массиве отрицательные элементы. Если есть, вывести а-номер первого такого элемента, b-номер последнего. (использовать барьер)
    2. Проверить, является ли массив целых чисел симметричным

Ответы 6

  • Первый ввод - кол-во чисел в массиве, дальше идут сами числа, выводит номер 1 и последнего
    • Автор:

      drake
    • 5 лет назад
    • 0
  • Обычно преподаватели за break карают нещадно)))
  • Alviko, правильно говорите) поэтому я убрала break. И во второй строчке выводится ошибка потому что не хватает [], а если их ставить, то выводится другая ошибка
  • я не смотрел эту версию,тут автор есть)))
    • Автор:

      jeffrey
    • 5 лет назад
    • 0
  • Разные компиляторы, тестировал на FreePascal 2.6.0
    • Автор:

      muffin
    • 5 лет назад
    • 0
  • program z1;var ar: array of integer;f, l, i, N: integer;begin        readln(N);        setlength(ar, N+1);        for i:=1 to N do read(ar[i]);        f:=-1;                for i:=1 to N do begin                if ar[i]<0 then begin                        f:=i;                        break;                end;        end;        if f>0 then begin                for i:=N downto 1 do begin                        if ar[i]<0 then begin                                l:=i;                                break;                        end;                end;                write(f,' ', l);        end        else write('No');end.program z2;var ar: array of integer;i, N: integer;otv: boolean;begin        readln(N);        setlength(ar, N+1);        for i:=1 to N do read(ar[i]);        for i:=1 to N div 2+1 do begin                 if ar[i]<>ar[N-i+1] then begin otv:=true; break; end;        end;        if otv=true then write('No')        else write('Yes');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years