Оформите программу на ABC ПАСКАЛЕ, обеспечивающую: - заполнение одномерного массива R с клавиатуры N целыми значениями;
- за минимальное число проходов по массиву R последовательное (а-б-в-г) формирование одномерного массива Q значениями элементов массива R в указанном порядке их исходного расположения в массиве R;
а) сначала нечётные элементы, расположенные на четных позициях, в исходном порядке;
б) затем чётные элементы на нечетных позициях в порядке, обратном исходному,
в) потом нечётные элементы на нечетных позициях в порядке, обратном исходному,
г) затем чётные элементы на четных позициях в исходном порядке,
- Вывод элементов массива Q;
Задаем вопросы: - Друг живет выше 8-го этажа?
Нет.
После этого ответа число вариантов уменьшилось в два раза, следовательно, информационная неопределенность уменьшилась в два раза. Получен 1 бит информации.
Друг живет выше 4-го этажа?
Да.
Число вариантов уменьшилось еще в два раза, получен еще 1 бит информации.
Друг живет выше 6-го этажа?
Да.
После данного ответа осталось два варианта: друг живет или на 7 этаже, или на 8 этаже. Получен еще 1 бит информации.
Друг живет на 7-м этаже?
Нет.
Все ясно. Друг живет на 8-м этаже.
Каждый ответ уменьшал информационную неопределенность в два раза. Всего было задано 4 вопроса. Получено 4 бита информации. Сообщение о том, что друг живет на 8-м этаже 16-ти этажного дома несет 4 бита информации.
i = 0; sum = 0;
Пока i < N;
sum = sum + A[i]
увеличить i на 1.
2.A[N]
i = 0; sum = 0;
Пока i < N;
Если A[i] делиться на 3 без остатка, то : (sum = sum + A[i])
увеличить i на 1.
3.A[N]
i = 1; sum = 0;
Пока i < N;
sum = sum + A[i]
увеличить i на 2.
Сред. знач. = sum/i
4. A[N]
i = 0; sum = 0; chet =0; nechet = 0; otr =0;
Пока i < N;
Если A[i] <0, то : (otr = otr * A[i])
Если i делиться на 2, то (chet = chet + A[i]) в ином случае nechet = nechet +1
увеличить i на 1.
Сума четных - chet
Произведение отрицательных - otr
Количество нечетніх - nechet