Тапсырма№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] пернелерін басу арқылы берілген программа қорытындысы шығарылады.