1 бит
2 возможных варианта или капуста или повидло.
1) Открыть диск D
2) Нажать Правой кнопкой мыши (ПКМ) на поле, в контекстном меню выбрать: Создать - Новая папка.
Будет создана папка под названием "Новая папка".
3) Нажать левой кнопкой мыши (ЛКМ) 1 раз на названии. Название станет доступно для редактирования. Поменять его на "Pentium I".
4) Нажать двойным кликом ЛКМ на папке, она откроется.
Повторить пункты 2 и 3. Новую папку в папке "Pentium I" назвать "Pentium II".
5) Повторить пункт 4. Новую папку в папке "Pentium II" назвать
"Pentium III".
Всё.
Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var p:=ReadInteger('P=');
var i:=a.FindIndex(t->t=p);
if i>=0 then Writeln('Номер элемента ',i+1)
else Writeln('Нет такого элемента')
end.
<u>Примеры</u>
h= 20
-57 15 -50 89 -25 -85 -75 12 57 92 61 1 36 -78 4 -1 30 12 16 -71
P= 66
Нет такого элемента
h= 13
15 86 57 69 -58 -78 -20 14 -63 -92 -16 -40 73
P= 14
Номер элемента 8