sveta300856729
?>

Паскаль дан массив из n элементов. определить количество элементов, которые являются нечетными числами.

Информатика

Ответы

u-bhank
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Нечетных: ',ArrRandom(ReadInteger('n='),-99,99).Println
      .Where(x->x.IsOdd).Count)
end.

Пример
n= 15
-91 88 -55 -11 -12 -84 53 86 27 -18 -57 -61 13 -94 -48
Нечетных: 8
fednik3337923

:]

Объяснение:

1.) Графический редактор — это программа для создания, редактирования и просмотра графических изображений.

2.)Пиксель - минимальный элемент любого растрового двумерного изображения. Это точка, которая имеет определенный цвет и местоположение.

3.)Щелкните правой кнопкой мыши рисунок, который вы хотите сохранить в виде отдельного файла изображения, и выберите команду Сохранить как рисунок

В списке тип файла выберите нужный формат

В поле имя файла введите новое имя для рисунка или просто подтвердите предлагаемое имя файла

Выберите папку, в которой вы хотите сохранить изображение

Нажмите кнопку Сохранить

4.) нужно нажать клавишу shift

5.) Чтобы изменить стиль линии, в группе Фигуры щелкните Контур и выберите стиль линии.

6.)Inkscape - это очень популярный векторный графический редактор с открытым исходным кодом, который может работать как в операционной системе Linux, так и в Windows и MacOS.

7.) эт я уже сама знаю) это плавный переход от одного цвета в другой

8)Инструмент Кривая Безье обеспечивает максимально возможную степень контроля над формой кривой в процессе рисования. Каждый щелчок кнопкой мыши при рисовании кривой с данного инструмента создает узел, который соединяется плавной кривой с предыдущим узлом. Если щелкнуть кнопкой мыши и протащить мышь, то можно воздействовать на форму кривой, входящей в данный узел

9.) Кривая Безье, Кривая Спиро

10.)Масштаб проще всего изменять клавишами "+" и "-" , а можно в самом нижнем правом углу основного окна Inkscape, там есть специальное окошечко (помечено на рисунке 1 стрелкой). Когда сетка создана, ее можно убирать и снова накладывать из меню Вид - > Сетка. Хорошо бы сохранить файл под именем lamp.svg, чтобы программа запомнила текущую сетку. Вобще, по ходу работы рекомендую время от времени сохранять файл

Надеюсь ;]

Салиев
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
const
  n=100; // заменить на 10000
var
  a:array[1..n] of byte;
  i:byte;
  j:integer;
begin
  // инициализация, для
  for j:=1 to n do a[j]:=Random(256);
  // собственно программа
  for i:=0 to 255 do
    for j:=1 to n do
      if a[j]=i then Write(i,' ');
end.

Тестовое решение:
5 8 9 11 11 14 14 17 18 19 21 22 24 24 29 30 33 36 40 45 46 47 55 55 56 58 61 62 64 66 68 73 74 75 85 88 91 94 96 96 96 98 102 103 108 109 111 111 116 119 122 123 129 129 130 135 137 139 143 144 149 149 155 155 160 169 170 173 177 178 181 182 190 193 196 198 199 199 200 206 206 207 209 222 224 225 226 229 230 235 237 240 243 246 249 250 251 252 254 255

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль дан массив из n элементов. определить количество элементов, которые являются нечетными числами.
Ваше имя (никнейм)*
Email*
Комментарий*