60

Найти в массиве элемент равный Х или установить что он отсутствует. Программа…

04 марта 2023

Найти в массиве элемент равный Х или установить что он отсутствует. Программа наПаскале

категория: информатика



39

Если нужны объяснения то пиши в личку) Program zada4a; vari,x,n: integer; a: array [1… 100] of integer; beginn: =0; write ('Введите x — '); readln (x); for i: =1 to 5 do — если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную. begin a[i]: =random (21); — это строчка озночает, что задаются числа интервалом от 0 до 20. write (a[i]: 5); end; writeln; for i: =1 to 5 do begin if x=a[i] then begin writeln ('Элемент в массиве равный ',x,' находится под номером — ',i); n: =n+1; end; end; if n=0 then write ('Элемент c таким значением отсутствоет'); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...