Написать программу с массивом: определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы. паскаль abc.

Const
  N = 10;

var
  a: array[1..N] of integer;
  i, sum: integer;

begin
  for i := 1 to N do
  begin
    readln(a[i]);
    if a[i] mod 2 <> 0 then
      sum := sum + 1;
  end;
  writeln(sum / N * 100, '%')
end.

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

1цикл с постусловием цикл с постусловием — цикл, в котором условие проверяется после выполнения тела цикла. отсюда следует, что тело всегда выполняется хотя бы один раз. в языке паскаль этот цикл реализует оператор repeat..until; в си — do…while. pascal: repeat         < тело  цикла> until < условие> си: do {         < тело цикла> } while(< условие> ) в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как условие выхода (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках — как условие продолжения (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»)…                           2цикл с постусловием  — цикл, в котором условие проверяется  после  выполнения тела цикла. отсюда следует, что тело  всегда выполняется  хотя бы один раз. в языке паскаль этот цикл реализует  операторrepeat..until; в си  —  do…while.

на языке pascal цикл с постусловием имеет следующий вид: :

repeat < тело цикла> until < условие выхода>

на языке си:

do { < тело цикла> } while (< условие продолжения цикла> )

в трактовке условия цикла с постусловием в разных языках есть различия. в паскале и языках, произошедших от него, условие такого цикла трактуется как  условие выхода  (цикл завершается, когда условие истинно, в терминологии такие циклы называют ещё «цикл до»), а в си и его потомках  — как  условие продолжения  (цикл завершается, когда условие ложно, такие циклы иногда называют «цикл пока»).