• Дан одномерный массив a целого типа, состоящий из n элементов. Найти в массиве третий, считая слева направо, элемент, имеющий заданное целое значение x, т.е. определить индекс этого элемента. Исходный масс в и результат вывести на печать. Предусмотрев вывод сообщения, когда подобного элемента в массиве нет.

Ответы 2

  • мне нужно было на языке С
    • Автор:

      seth57
    • 6 лет назад
    • 0
    1. program n_1;
    2. uses printer;
    3. var n, i, s: integer;
    4. arr: array [1..10000] of integer;
    5. begin
    6. write ('Введите размер массива: ');
    7. readln (n);
    8. for i := 1 to n do begin
    9. write ('arr[',i,'] := ');
    10. readln (arr[i]);
    11. end;
    12. write ('Введите число для поиска: ');
    13. readln (s);
    14. i := 0;
    15. repeat
    16. inc(i);
    17. until (arr[i] = s) and (i = n);
    18. if (not (i = n)) or ((i = n) and (arr[i] = s)) then writeln(lst,s);
    19. end.
    • Автор:

      janetfvkk
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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