Придумать программу которая в массиве случайных чисел находит число равное 10. если такого числа не существует, то на экране должна появиться запись "такого числа не существует".
begin write('Введите размер массива :'); readln(n); setLength(a, n); randomize; for i:=0 to n-1 do begin a[i]:=random(100); write(a[i], ' '); end; writeln; t:=-1; for i:=0 to n-1 do begin t:=a[i]; if t=10 then writeln('Найден элемент равный 10 в ячейке ', i); end; if t=-1 then writeln('Элемент равный 10 в массе не найден!'); end.
В данном тексте встречается не так много различных прописных букв – это все буквы, входящие в заголовок (Ш, А, Л, Т, Й, Б, О) и первые буквы строк (С, В, Н). Какая из них может встречаться один раз. Не трудно заметить, что это не Ш и не Б (они встречаются слишком часто), а также не С, не В и не Н (они встречаются в стихотворении попарно), значит, это какая-то из оставшихся букв заголовка и не трудно догадаться, что О. Три раз встречается строчная буква и. Три раза встречается прописная буква А. Десять раз встречается строчная буква е.
Использовать источники открытого огня (спички, зажигаприносить на уроки легковоспламеняющиеся вещества (лаки, краски, порох и т.п.); лки, петарды и др.); работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов; вставлять в отверстие приборов посторонние предметы; приносить и самовольно подключать какое-либо оборудование; производить самовольное переключение разъёмов оборудования; вставлять в отверстие приборов посторонние предметы; работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов;
type
arr = array of byte;
var
i, n, t : byte;
a : arr;
begin
write('Введите размер массива :');
readln(n);
setLength(a, n);
randomize;
for i:=0 to n-1 do begin
a[i]:=random(100);
write(a[i], ' ');
end;
writeln;
t:=-1;
for i:=0 to n-1 do
begin
t:=a[i];
if t=10 then writeln('Найден элемент равный 10 в ячейке ', i);
end;
if t=-1 then writeln('Элемент равный 10 в массе не найден!');
end.