Варіанти індивідуальних завдань.

1) Записати в масив Y невід’ємні значення функції sin(n*x)-n*cos(n*x) для х від 0 до 2 із кроком 0,1 (при заданому значенні n), а в масив Х – відповідні значення аргументу х.

2) Масив Z складається з 25 дійсних чисел. Записати в масив А підряд невід’ємні елементи масиву Z, а в масив Y – номера його невід’ємних елементів.

3) Масив Х містить 20 цілих чисел. До всіх додатних елементів масиву Х додати значення його максимального елементу, а до від’ємних – мінімального.

4) Записати в масив Х 25 цілих чисел. Переписати парні з них у масив Y у порядку зростання.

5) Записати в масив Х 20 дійсних чисел. Переписати в масив Р підряд додатні з чисел sin(nxi), а в масив N – від’ємні з цих чисел.

6) Масив Z складається з 30 дійсних чисел. Сформувати масив Y, у який записати підряд ті елементи масиву Z, що належать до діапазону . Отриманий масив відсортувати в порядку зростання.

7) У одновимірному масиві усі від’ємні елементи замінити максимальним елементом. Отриманий масив відсортувати у порядку зростання.

8) Дано масиви X і Y. Переписати в масив Z елементи цих масивів індекси яких непарні. Масив Z відсортувати у порядку спадання.

9) Одновимірний масив А містить 11 цілих чисел. На місце першого елемента масиву поставити максимальний елемент.

10) У масивах А і В знайти максимальні та мінімальні елементи, переписати їх у масив С і відсортувати у порядку спадання.

11) Масив А містить 15 дійсних чисел. Знайти модуль різниці максимального і мінімального елементів масиву.

12) Масив А містить 15 дійсних чисел. Переписати в масив Y ті з них, які за модулем менше 1. Відсортувати отриманий масив у порядку зростання.

13) Масив А містить 10 дійсних чисел. Знайти середнє арифметичне максимального і мінімального елементів масиву.

14) Масив А складається з 20 цілих чисел. Записати елементи даного масиву в зворотному порядку. Вказівка: Вирішити задачу шляхом формування нового масиву В.

15) Записати в масив Х 25 цілих чисел. Переписати додатні з них підряд у масив Р, а від’ємні – у масив N.

16) Записати в масив Z значення функції n(cos(nx)) для х від 0 до 2 із кроком 0,1 (при заданому значенні n). Переписати додатні елементи масиву Z підряд у масив Y, і їхні номера – у масив Х.

17) Масив А складається з 20 цілих чисел. Упорядкувати масив у порядку спадання і записати в масив Y номера відповідних елементів масиву А до сортування.

18) Масив А містить 20 дійсних чисел. Записати в перший елемент масиву суму його додатних елементів, а в останній – від’ємних.

19) Масив А складається з 20 цілих чисел. Додати до кожного елемента масиву його номер і знайти максимальний і мінімальний елементи отриманого масиву.

20) Всі ненульові елементи одновимірного масиву А переписати в масив В та відсортувати його у порядку не спадання.

21) Дано натуральне число n, цілі числа A₁,..., A_n. Отримати суму позитивних і число негативних елементів послідовності.

22) Дано цілі числа A₁,..., A₁₅. Отримати число негативних елементів послідовності A₁,..., A₁₀ і число нульових елементів усієї послідовності A₁,..., A₁₅.

23) В масиві підрахувати кількість елементів, більших 3.

24) Скласти програму для обчислення суми S елементів числової послідовності А₁, А₂,..., А₁₀ за формулою S=A₁+A₂+...+A₁₀.

25) Скласти програму для обчислення суми елементів послідовності цілих чисел Р₁, Р₂,..., Р₁₀, що мають парні індекси і добуток елементів послідовності Р₁, Р₂,..., Р₁₀, що мають непарні індекси.

26) В масивіє хоча б один нуль.

а) Обчислити добуток елементів масиву до першого нуля.

б) Обчислити суму елементів масиву до першого нуля.

27) Дано натуральне число n, цілі числа A₁,..., A_n. Знайти кількість і суму тих членів послідовності, які діляться на 5 і не діляться на 7.

28) Дано натуральні числа n, p, цілі числа A₁,..., A_n. Одержати добуток елементів послідовності, що кратні p.

29) Дано натуральне число n, дійсні числа A₁,..., A_n. В послідовності всі негативні числа збільшити на 0.5, а всі позитивні на 0.1.

30) Дано натуральне число n, цілі числа A₁,..., A_n. Замінити всі, більші 7, елементи послідовності числом 7. Обчислити кількість таких елементів.

 

Двовимірні масиви

А

ПРИКЛАД 1. В двовимірному масиві A розміром n*m знайти мінімальний елемент і вивести на екран номери його рядка та стовпця, тобто індекси.

Блок-схема:

Програма:

Program Ex_Matr1;

uses Crt;

const n=4; m=5;

var

a=array[1..n, 1..m] of real;

min: real;

i, j, im, jm: byte;

 

BEGIN

clrscr;

writeln(‘Ввести масив з’, n, ‘рядків’, ‘та’, m, ‘стовпців’);

for i:=1 to n do {введення елементів масива по рядках}

begin

for j:=1 to m do

    read (a[i,j]); {елементи кожного рядка вводити через пробіл}

readln; {перехід на новий рядок – натиснути клавішу ENTER}

end;

min:=a[1,1];           {приймаємо за min перший елемент}

im:=1; {номер рядка першого елемента }

jm:=1; {номер стовпця першого елемента }

for i:=1 to n do

for j:=1 to m do

if a[i,j] < min then

begin

    min:= a[i,j];

    im:=i;

    jm:=j;

end;

writeln(‘min=’, min:6:2, ‘ ‘: 2, ‘im=’, im, ‘ ‘:2, ‘jm=’, jm)

END.

 

 

ПРИКЛАД 2.

Визначити добуток елементів k-го рядка матриці B розміром n*m.

 

Блок-схема:

П рограма:

Program Ex_Matr2;

uses Crt;

const n=3; m=4;

type

matr=array[1.. n, 1.. m] of integer;

var

b: matr;

i, j, k: byte;

P: longint;

BEGIN

clrscr;

writeln(‘Ввести масив з’, n, ‘рядків’, ‘та’, m, ‘стовпців’);

for i:=1 to n do {введення елементів масива по рядках}

begin

for j:=1 to m do

    read (b[i,j]);      {елементи кожного рядка вводити через пробіл}

readln; {перехід на новий рядок – натиснути клавішу ENTER}

end;

writeln(‘Ввести номер рядка k<=n’);

readln(k);

P:=1;      {добуток}

for j:=1 to m do   

P:=P*b[k,j];

writeln(‘P=’,P)

END.