Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
Палитрой называется набор цветов, который находится в нижней части окна Paint. В какой-то степени она подобна палитре художника, но если художник в любой момент может пользоваться лишь одной краской, набранной на кисть, Paint позволяет работать сразу с двумя цветами: цветом переднего плана и цветом фона.
Для подключения палитры цветов необходимо выбрать пункт меню Вид, Палитра.
В нижней части окна программы Paint появится палитра цветов. Она содержит небольшой набор разных цветов для выбора, а также особое окно слева с двумя наложенными квадратами.
Верхний прямоугольник окрашен текущим цветом переднего плана - черным, а нижний - цветом фона, белый.
В любой момент можно изменить эти цвета. Для выбора текущего цвета щелкнуть левой кнопкой мыши на любом из цветов палитры, а для выбора цвета фона щелкнуть правой кнопкой мыши на любом из цветов.
Как используются эти цвета при создании картинки?
Если операция производится с использованием левой кнопки мыши, применяется цвет переднего плана.
При использовании правой кнопки мыши применяется фоновый цвет.
Это относится к операциям свободного рисования, создания прямых и кривых линий и Заливки. Инструмент ластик всегда заполняет очищаемую область фоновым цветом. Стандартные геометрические фигуры заполняются также всегда фоновым цветом.
Если нужного цвета в палитре не оказалось, следует дважды щелкнуть по любому месту палитры или дать команду Палитра - Изменить палитру
По этим командам открывается диалоговое окно "Изменение палитры", позволяющее сформировать новый цвет.hello_html_m7179f0b.png
Если нужно использовать цвет, который уже есть на рисунке, необходимо воспльзоваться инструментом Выбор цветов (Пипетка).hello_html_m684a8245.gif
a: array[0..99] of integer;
begin
//заполняем массив случайными числами
Randomize();
for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль
for var i:=0 to 99 do
if (a[i]<0) then a[i]:=0;
end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
Объяснение:
Палитрой называется набор цветов, который находится в нижней части окна Paint. В какой-то степени она подобна палитре художника, но если художник в любой момент может пользоваться лишь одной краской, набранной на кисть, Paint позволяет работать сразу с двумя цветами: цветом переднего плана и цветом фона.
Для подключения палитры цветов необходимо выбрать пункт меню Вид, Палитра.
В нижней части окна программы Paint появится палитра цветов. Она содержит небольшой набор разных цветов для выбора, а также особое окно слева с двумя наложенными квадратами.
Верхний прямоугольник окрашен текущим цветом переднего плана - черным, а нижний - цветом фона, белый.
В любой момент можно изменить эти цвета. Для выбора текущего цвета щелкнуть левой кнопкой мыши на любом из цветов палитры, а для выбора цвета фона щелкнуть правой кнопкой мыши на любом из цветов.
Как используются эти цвета при создании картинки?
Если операция производится с использованием левой кнопки мыши, применяется цвет переднего плана.
При использовании правой кнопки мыши применяется фоновый цвет.
Это относится к операциям свободного рисования, создания прямых и кривых линий и Заливки. Инструмент ластик всегда заполняет очищаемую область фоновым цветом. Стандартные геометрические фигуры заполняются также всегда фоновым цветом.
Если нужного цвета в палитре не оказалось, следует дважды щелкнуть по любому месту палитры или дать команду Палитра - Изменить палитру
По этим командам открывается диалоговое окно "Изменение палитры", позволяющее сформировать новый цвет.hello_html_m7179f0b.png
Если нужно использовать цвет, который уже есть на рисунке, необходимо воспльзоваться инструментом Выбор цветов (Пипетка).hello_html_m684a8245.gif