Показать сообщение отдельно
Aspid
активный пользователь
Аватар для Aspid
Сообщения: 2,273
Регистрация: 20.12.2001
Старый пост, нажмите что бы добавить к себе блог 2 апреля 2009, 18:37
  #6 (ПС)
твоя прога заполняет массив случайными 10ю числами от -10 до 10, потом просит тебя ввести число и если это число было среди случайных то она пишет тебе на какой позиции оно стоит, если такого числа не было то пишет нет.



Var
i,f: byte; //создаем временные переменные
n: integer; //переменная для хранения числа введеного юзером
a: array [1..10] of integer; //массивчик из 10и цифирок
begin //начинаем
for i=1 to 10 do //десять раз делаем следующую хуйню, а именно генерацию случайных чисел
begin //начинаем
a[i]:=random(20) - 10; //генерим случайно число и запихуем его в массивчик
writeln(a[i]); //пишем пользователю число которое сгенерилось
end; //заканчиваем генерацию числа
write ('введи число'); //просим пользователи ввести чо нить похожее на число
readln(n); //если пользователь доверчивый и действительно ввел число, то все заебись и оно будет сохранено в n, иначе тебя компилятор может к хуям послать
i:= 1; // пусть i будет равно единице
f:= 0; //пусть f будет 0
while (i<=10) and (f=0) do //пока i меньше и не равно 10 и f равно нулю хуярим, иначе нахуй
begin //начинаем
if a[i]=n then //если i число в массиве равно числу введеному пользователю то заебись ставим f=1 и идем нахуй из цикла
writeln(i):f:=1
else //иначе i равно следующему числу 1,2,3 и т.д.
i:=i+1;
end;
if f=0 then //если f до сих пор равно нулю значит нихуя не было этого числа в массиве так шо нет
writeln('нет');
end. //автор, учи уроки информатики!

offline
Ответить с цитированием