program progr32;
uses crt;
var index,suze,suze_index:integer;
numbers:array [1..1000] of integer;
begin
write('suze :');
readln(suze);
randomize;
for index:=1 to suze do
begin
numbers[ index ]:=random(100);
write(numbers[ index ],' ');
end;
writeln;
writeln('suze_index :');
readln(suze_index);
index:=1;
while((numbers[ index ] <>= x) and (index < = suze)) do index:=index+1;
if index>suze then write('No such element')
else write('index=',index);
readln;
end.
задание: Есть некоторый массив целых чисел. Пользователь вводит некоторое число и программа должна выводить на экран инедекс элемента из массива, равно числу и находится самый левый в массиве. Если элементов нет программа должна об этом сообщить.
Пример:
На вход: 5
9 0 5 6 7
На выход: 3
На вход: 6
5 6 7 6 7
На выход: 2
На вход: 78
1 2 7 23
На выход: 'No such element'
Примечание:
выправыв всеодно кричит ожидалось индификатор
Примечание:
крычить чот (index < = suze)) do index:=index+1 здесь ожидался индификатор
Примечание:
while((numbers[ index ] <>= suze_index) and (index < suze)) do index:=index+1; а если я место вайл напышу
for ((numbers[ index ] <> suze_index to size do будет правильно?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.