Дан одномерный массив a целого типа, состоящий из n элементов. Найти в массиве третий, считая слева направо,

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

Ответ №1
  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.
Оцените статью
Сервис вопросов и ответов для школьников | educatic.ru
Добавить комментарий