Тапсырма№5. Келесi есептерде бiр өлшемдi массивті қолданушы бағдарламаларға тиiстi түрдiң элементтерiн жазу керек болады.

1. 50 сандардың тiзбегi берілген. Олардың орташа арифметикасын табың дар. Олардың арасыннан ең жақ сы соң ғ ы сандардың қ анша екендігін табың дар.

2. Нақ ты сандардың n тiзбегi берілген. Нө мiрi тiзбектiң элементтерiнiң мә ндерiмен дә л келетiн тiзбектiң элементтерiнiң сомасын есептең дер.

3. 99 бү тiн сандардың тiзбегi берілген. Жаң а тiзбектi алу ү шін бастапқ ы барлық элементтерден max(a 1,..., a 99) мә нін алып тастаң дар.

4. n нақ ты сандардың тiзбегi берілген. B1,.., bn саныннан, онда bi бастапқ ы тiзбектiң барлық элементтерiннің орташа арифметикасын алу, i-ден басқ а - сол элементтен.

5. n нақ ты сандардың тiзбегi берілген. Келесi ереже бойынша оны ө згертің дер: барлық теріс элементтерді оның басына кө шірің дер, ал қ алғ ан барлығ ын соң ына, бастапқ ы ө зара орналастырылуды теріс жә не қ алғ ан барлық элементтерді сақ тай отыра.

6. n нақ ты сандардың тiзбегi берілген. Тiзбектiң барлық элементтерiн циклдiк k позициясыннан солғ а жылжытың дар.

7. n нақ ты сандардың тiзбегі берілген. Егер тiзбектiң элементтерi ө су бойынша қ атал реттелсе t айнымалығ а True мә нiн берің дер.

8. n нақ ты сандардың тiзбегі берілген. Егер тiзбекте нө лдiк элементтер жоқ болса жә не сонымен бiрге оң элементтер терiс элементтермен кезектессе t айнымалығ а True мә нiн берің дер.

9. n нақ ты сандардың тiзбегі берілген. Барлық жұ п нө мерлі элементтердің тізбектерін ең ү лкен мә ні бар элементтерді бірінші орындағ ы элементке кө бейтің дер.

10. n нақ ты сандардың тiзбегі берілген. m нө мiрлі элементті жә не ең ү лкен элемент тiзбегтерінің орындарын алмастырың дар.

11. n нақ ты сандардың тiзбегі берілген. Берілген сан нө мерінің бірінші тізбекке кіруін табың дар немесе ондай сан жоқ деген хабарлама шығ арың дар.

12. n нақ ты сандардың тiзбегі берілген. Берілген сан нө мерінің тізбекке соң ғ ы кіруін табың дар немесе ондай сан жоқ деген хабарлама шығ арың дар.

13. n нақ ты сандардың тiзбегi берілген. Егер ол кему емес бойынша реттелсе немесе ө су бойынша болмаса, онда ө згерiссiз қ алдырың дар; басқ а жағ дайда бастапқ ы тiзбектің оң элементтерiн ө су бойынша ретке келтірің дер.

14. n бү тiн сандардың тiзбегi берілген. k мә нiнiң тiзбегiне еселi барлық элементтерді алып тастаң дар.

15. n нақ ты сандардың тiзбегі берілген. { b₁₀ } тізбегін алу ү шін, ондағ ы b_i = бастапқ ы элементтер тізбегінің соммасы, ол (i-1, i] i=1, 10-ғ а тиесілі. Егер жартылай жол аралық тiзбектiң элементтерiнде болмаса, онда тиiстi bi 0-ге тең екенін қ ойың дар.

16. Бү тiн сандардың 20 тiзбегi берілген.Ең кiшi мә нді элементтi бiрiншi орындағ ы бастапқ ы тiзбектiң барлық элементтерiнің орташа арифметикалығ ының табандатқ ан бө лiгiмен алмастырың дар, ө зге элементтердi ө згерiссiз қ алдырың дар.

Массивтер тақ ырыбы бойынша тапсырмалар

Мысал ретінде екі ө лшемді (А[5, 5]) массивтің бас диагоналындағ ы элементтер қ осындысын анық тайтын программаны қ арастырамыз:

РRОGRАМ РRІМ_DG;

VАR А: АRRАY [1.5, 1.5] ОF ІNТЕGЕR; І, J, SUМ: ІNТЕGЕR;

ВЕGІN

WRІТЕLN('массив элементтерін ең гізің із-');

FОR l: =1 ТО 5 DО

FОR J: =1 ТО 5 DО

ВЕGІN

WRІТЕ('А[', І, J, ']='); RЕАDLN(А[І, J]);

ЕND;

SUМ: =0;

FОR l: =1 ТО 5 DО

FОR J: =1 ТО 5 DО

ІF І=J ТНЕN SUМ: =SUМ+А[І, J];

WRІТЕLN('Қ осындысы - ', SUМ);

ЕND.

Берілген программада VАR бө лімінде А[5, 5] екі ө лшемді массиві сипатталғ ан: А: АRRАY[1..5, 1..5] ОF ІNТЕGЕR; - бұ л сипаттама А массиві бү тін сандардан қ ұ ралатының білдіреді.

Программада массив элементтерін енгізу ү шін екі цикл операторы қ олданылғ ан:

FОR І: =l ТО 5 DО - I-ді 1-ден 5-ке дейін ө згертіп орындау;

FОR J: =l ТО 5 DО - J-ді 1-ден 5-ке дейін ө згертіп орындау;

ВЕGІN - цuкл басы;

WRІТЕ('А[', І, J, ']='); - 'А[І, J]=' тіркесін экранғ а бейнелеу;

RЕАDLN(А[І, J]); -массuв элементтерін енгізу;
ЕND; - цuкл соң ы.

Шарт бойынша негізгі диагональ элементтерін анық тау ү шін І=J болса SUМ: =SUМ+А[І, J] қ айталау операторы бойынша меншіктейміз:

FОR І: =1 ТО 5 DО

FОR J: =1ТО 5 DО

ІF І=J ТНЕN SUМ: =SUМ+А[І, J];

Қ орытынды жауапты экранғ а шығ ару:

WRІТЕLN('Қ осындысы - ', SUМ);

[Сtrl]+[F9] пернелерін басу арқ ылы берілген программа қ орытындысы шығ арылады.