Run - запуск програми на виконання. По завершенні виконання програми відбувається повернення до середовища turbo Pascal. 3 страница

10. Комп'ютер (за допомогою датчика випадкових чисел) генерує результати кидань двох кубиків до тих пір, поки не випаде дві шістки. З’ясувати, через скільки кидань станеться ця подія. Вивести всі числа, що при цьому генеруються.

11. Почавши тренування, спортсмен за перший день пробіг М км. Кожного наступного дня він збільшував денну норму на З% відносно норми попереднього дня. Визначити, через скільки днів спортсмен буде пробігати за день більше N км (N>M).

12. При умові попереднього завдання визначити, через скільки днів спортсмен пробіжить сумарний шлях не менше L км.

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

14. При заданому х обчислити суму , припиняючи обчислення, коли черговий член суми за абсолютною величиною буде меншим 0.0001.

15. Лісництво веде заготівлю ділової деревини. Початковий об'єм деревини на території лісництва був рівний 120000 м³. Щорічний природний приріст становить 5.5%. Річний план заготівлі деревини – 9500 м³. Через скільки років об'єм деревини на території лісництва стане меншим 23000м³? Вивести об'єм деревини на кінець кожного року до настання цієї події.

Лабораторна робота № 8

Тема: Програми циклічної структури. Оператор циклу з параметром.

Мета: Формування вмінь і навичок програмування алгоритмів циклічної структури для перебору рівномірно розподілених значень. Формування вмінь і навичок програмування алгоритмів з використання вкладених циклів. Закріплення вмінь і навичок використання вказівок вводу-виводу. Застосування вмінь і навичок програмування алгоритмів лінійної та розгалуженої структури.

Контрольні запитання:

1. Який вигляд має цикл з параметром?

2. Який порядок виконання оператора циклу з параметром?

3. Чи можна здійснити достроковий вихід із циклу з параметром? Чи коректно це робити?

4. Які значення може приймати величина кроку в циклі з параметром?

5. Розпишіть покроково виконання двох наступних фрагметнів програми:

A:=15; For I:=10 to 14 do A:=A+I;

A:=15; For I:=14 downto 10 do A:=A+I;

6. Чи виконуватиметься цикл з параметром, якщо при додатньому значенні кроку початкове значення параметра циклу перевищує кінцеве значення?

7. Які значення може приймати параметр перелічувального циклу?

8. До якого типу змінних має належати параметр перелічувального циклу?

9. Чи виконуватиметься перелічувальний цикл при відсутності параметра?

10. Чи можна змінювати значення параметру в тілі циклу?

11. Елементи яких структур може послідовно перебирати перелічувальний цикл? Чи виконуватиметься перелічувальний цикл при відсутності такої структури?

12. Які цикли називають вкладеними?

13. Скільки разів виконується тіло вкладеного циклу?

14. Поясніть дію груп операторів:

FOR I=1 TO 5 DO

FOR J=2 TO 4 DO

A:=I+J;

14. Поясніть дію груп операторів:

FOR I=1 TO 5 DO BEGIN

FOR J=2 TO 4 DO

A:=I+J;

FOR K=1 TO 7 DO

B:=I+K;

END;

 

Завдання 1. Скласти програму обчислення значень функції F(X) на відрізку [A,B] в точках X_i=A+iH, де H=(B-A)/M, M – задане ціле число.

Вимоги до програми:

- для задання значень Х і відповідних значень функції потрібно використовувати прості змінні;

- значення кроку Н повинно обчислюватись один раз;

- при зміні значення аргумента Х використовувати оператор присвоєння Х:=Х+Н, а не оператор з використанням операції множення Х:=А+І*Н (що істотно скорочує час виконання програми);

- значення аргументів та відповідні їм значення результатів вивести на екран у вигляді таблиці.

 

Варіант	Функція F(X)	Параметри
А	В	М
1.			p/4
2.		p/4	p/2
3.		p/3	2p/3
4.
5.		0,5
6.
7.			p/2
8.		p/8	2/p
9.		p/6	2p/3
10.		p/3	3p/2
11.			p/4
12.		p/4	p/2
13.			2p/3
14.		p/2	p
15.		p/4	p/2

 

Завдання 2. Ввести послідовність нулів і одиниць, які є записами числа в двійковій системі числення. Кількість символів (N), що потрібно ввести, вказана в таблиці. Перевести число в десяткову систему числення і визначити, чи кратне воно М. Вивести на екран число в двійковій і десятковій системах числення і відповідь щодо кратності його числу М.

 

Варіант	N	M
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

 

Завдання 3. Скласти програму для розв'язання поставленого завдання.

Вимоги до програми:

– числові значення параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності даних та їх типів;

– при створенні програми використати вкладені цикли;

– результати обчислень вивести на екран в одному діалоговому вікні.

 

Варіанти:

 

1. Знайти натуральне число в межах від 1 до 10000 з максимальною сумою дільників.

2. Дано натуральне число N. Отримати всі менші за N натуральні числа, що є з ним взаємно прості.

3. Дано цілі числа Р та Q. Отримати всі дільники числа Q, взаємно прості з Р.

4. Дано натуральне число N. Отримати всі прості дільники цього числа.

5. Знайти найменше натуральне число N, яке можна подати двома різними способами у вигляді N=х³+y³ (x>у).

6. Дано натуральні числа А та В (А<В). Отримати всі прості числа Р з проміжку [A;B].

7. Знайти сто перших простих чисел.

8. Дано натуральні числа N та М. Отримати всі менші N натуральні числа, квадрат суми цифр яких рівний М.

9. Дано натуральне число N. Отримати всі менші за N досконалі числа. (Натуральне число називається досконалим, якщо воно рівне сумі всіх своїх дільників, за винятком самого себе. Наприклад, число 6 – досконале, оскільки 6=1+2+3, а число 8 – недосконале, оскільки 8 1+2+4).

10. Дано натуральне число N. З¢ясувати, чи можна подати його у вигляді суми квадратів трьох натуральних чисел. Якщо можна, то вказати таку трійку х, у, z натуральних чисел, що N=x²+y²+z².

11. В інтервалі від 1 до 1000 знайти всі пари простих чисел. (Парою простих чисел називаюся два простих числа, різниця між якими рівна 2, наприклад: 3 і 5, 11 і І3, 17 і 19).

12. Відомо, що будь-яке натуральне число Р (Р>7) можна подати у вигляді Р=3А+5В. Знайти всі пари чисел А та В для числа Р.

13. Дане натуральне число Р (Р<100000). Отримати всі дружні числа в інтервалі від 1 до Р. (Дружніми числами називається така пара натуральних чисел М і N, для яких сума всіх дільників числа М (крім самого числа М) рівна N, а сума всіх дільників числа N (крім самого числа N) рівна M. Наприклад, числа 220 і 284 дружні, оскільки сума дільників числа 220 (1+2+4+5+10+11+20+22+44+55+110) рівна 284, а сума дільників числа 284 (1+2+4+71+142) рівна 220).

14. Число Армстронга – це таке число із K цифр, для якого сума К-х степенів його цифр рівна самому числу. Наприклад: 153=1³+5³+3³. Знайти всі числа Армстронга з двох, трьох, чотирьох цифр.

15. Дано натуральне число N. З¢ясувати, чи можна подати його у вигляді суми кубів двох натуральних чисел. Якщо можна, то вказати два таких натуральних числа х та у, що N=х³+y³.

 

Лабораторна робота № 9

Тема: Одновимірні масиви.

Мета: Формування вмінь і навичок програмування алгоритмів опрацювання одновимірних масивів. Закріплення вмінь і навичок використання вказівок вводу-виводу. Застосування вмінь і навичок програмування алгоритмів лінійної, розгалуженої та циклічної структури.

Контрольні запитання:

1. Як описується масив у програмі?

2. Як описуються масиви в розділі змінних?

3. Як описуються масиви в розділі сталих?

4. Як описуються масиви з використанням розділу типів?

5. Як вказується тип елементів при оголошенні масиву?

6. Чи може бути тип елементів масиву будь-яким?

7. Чи може типом індексу масиву бути тип integer чи real?

8. Чи може масив складатись з одного елементу?

9. Чи може масив не містити жодного елементу?

10. Чи можна під час виконання програми змінити розмір масиву (кількість елементів у ньому)?

11. Чи можуть елементами деякого масиву бути числа 1, 1.41, 1.73 і 2?

12. До чого призводить під час виконання програми відсутність попереднього опису масиву і в яких випадках?

13. Чи може бути так описаний одновимірний масив:

VAR A:ARRAY[1..20] OF REAL;?

Якщо так, то скільки елементів він містить?

14. Чи може бути так описаний одновимірний масив:

TYPE MAS=ARRAY[‘A’..’D’];

VAR A:MAS;?

Якщо так, то скільки елементів він містить?

15. Чи може бути так описаний одновимірний масив:

VAR A:ARRAY[INTEGER] OF CHAR;?

Якщо так, то скільки елементів він містить?

16. Чи може бути так описаний одновимірний масив:

VAR MM:ARRAY[FALSE..TRUE] OF CHAR;?

Якщо так, то скільки елементів він містить?

17. Чи може бути так описаний одновимірний масив:

TYPE SS=ARRAY[-20..0] OF INTEGER;

VAR MAS:SS;?

Якщо так, то скільки елементів він містить?

18. Чи може бути так описаний одновимірний масив:

TYPE МІСТО=(КИЇВ, ЛУЦЬК, РІВНЕ, ЛЬВІВ);

VAR A:ARRAY[МІСТО] OF REAL;?

Якщо м так, то скільки елементів він містить?

19. Дано частину програми:

TYPE ДЕНЬ=(ВЧОРА, СЬОГОДНІ, ЗАВТРА);

ВЕКТОР=ARRAY[1..30] OF REAL;

VAR A:ВЕКТОР;

В:PACKED ARRAY [-2..2] OF (X,Y,Z);

C:ARRAY[‘0’..’9’] OF ВЕКТОР;

D:ARRAY[ДЕНЬ] OF 0..23;

Для кожного з масивів A, B, C, D вказати:

а) скільки в ньому елементів;

б) які значення можуть приймати його елементи;

в) як вказати його перший і останній елементи.

20. Які операції над елементами масивів допустимі?

21. Знайти помилки в наведеній програмі:

PROGRAM POMYLKI;

VAR X,Y:ARRAY [1..20] OF REAL;

Z,U:ARRAY [1..50] OF REAL;

I:INTEGER;

BEGIN READ(X,Y);

IF X<>Y THEN BEGIN Z:=X;

X:=Y; Y:=Z AND

ELSE X:=X+Y;

FOR I:=1 TO 20 DO U[I]:=X[I]+Y[I];

Z:=U;

WRITELN(X);

END.

 

Завдання 1. Скласти програму формування та друку масиву з N елементів, значення яких – цілі числа з проміжку [а,b].

Вимоги до програма:

– число елементів N ввести з клавіатури;

– масив формувати за допомогою оператора присвоєння, використовуючи датчик випадкових чисел;

– результати формування вивести на екран в одному діалоговому вікні, вказавши для кожного елемента масиву його індекс та значення.

 

Варіанти:

1. а=10, b=10; 2. a=4, b=18; 3. a=30, b=100;

4. a=8, b=50; 5. a=5, b=70; 6. a=15, b=300;

7. a=200, b=290; 8. a=17, b=80; 9. a=37, b=85;

10. a=7, b=56; 11. a=15, b=80; 12. a=200, b=400;

13. a=127, b=800; 14. a=3, b=1000; 15. a=16, b=160.

 

Завдання 2. Скласти програму для розв'язання поставленого завдання.

Вимоги до програми:

– числові значення розмірності N, елементів масиву та параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності типів та даних;

– масив описати лише після введення кількості його елементів;

– для обробки елементів масиву використати оператори циклу;

– вхідні дані і результати опрацювання обчислень вивести на екран в одному діалоговому вікні.

 

Варіанти:

 

1. Знайти суму елементів одновимірного масиву розміру N. Сформувати новий масив, розділивши кожен елемент вхідного масиву на отримане значення. Результат надрукувати у вигляді паралельних стовпців елементів вхідного та створеного масиву.

2. Обчислити суми і різниці елементів двох заданих масивів розміру N. Результат надрукувати у вигляді паралельних стовпців.

3. Задано масив X розміру N. Обчислити значення функції у =0,5ln х при значеннях аргументу, заданих в масиві X, і помістити їх в масив Y. Надрукувати елементи масивів X та Y у вигляді паралельних стовпців.

4. Знайти середнє значення елементів заданого масиву розміру N. Перетворити вхідний масив, віднімаючи від кожного елемента отримане середнє значення.

5. Визначити середнє значення елементів масиву розміру N. Знайти індекс елемента масиву, найбільш близького до отриманого середнього значення.

6. Дано масив розміру N (N>10). Сформувати два масиви, включаючи в перший елементи вхідного масиву з парними індексами, а в другий - з непарними.

7. Ввести числа в масив X(N) у такій послідовності: X(N), X(N-1), … X(1) (тобто у зворотній послідовності). Обчислити довжину вектора X розміру N. (Довжина вектора обчислюється за формулою ).

8. Дано масив, що складається з натуральних чисел Визначити кількість елементів масиву, що мають парні порядкові номери і є непарними числами.

9. Дано масив, що складається з натуральних чисел Визначити елементи масиву, що є подвоєними непарними числами.

10. Дано масив, що складається з натуральних чисел Визначити елементи масиву, що діляться на 5 і не діляться на 7.

11. Дано масив, що складається з натуральних чисел Подвоїти в масиві всі непарні елементи.

12. Дано цілі числа а, n, Визначити, яким по рахунку іде в послідовності елемент, рівний а. При відсутності такого елемента в масиві вивести відповідне повідомлення.

13. Дано масив, що складається з натуральних чисел Перевірити істинність твердження про те, що кількість від'ємних елементів масиву перевищує кількість додатних.

14. Дано масив, що складається з цілих чисел Знайти суму елементів масиву, що слідують за елементом, рівним а (а – ціле число). При відсутності такого елемента в масиві вивести відповідне повідомлення.

15. Вхідний масив містить лише значення 0 та 1. Визначити кількість нулів і одиниць в масиві. Поміняти 0 та 1 ролями, не застосовуючи оператор розгалуження.

 

Лабораторна робота № 10

 

Тема: Двовимірний масив.

Мета: Формування вмінь і навичок програмування алгоритмів обробки двовимірних масивів. Закріплення вмінь і навичок використання вказівок вводу-виводу та одновимірних масивів. Застосування вмінь і навичок програмування алгоритмів лінійної, розгалуженої та циклічної структури.

Контрольні запитання:

1. Як описується двовимірний масив у програмі?

2. Як розміщуються елементи двовимірного масиву в пам'яті комп'ютера?

3. Яка максимально можлива розмірність масиву?

4. Скільки розмірностей може мати масив?

5. Як вивести двовимірний масив у вигляді матриці?

6. Які комбінації операторів найчастіше використовуються для опрацювання двовимірних масивів? Чому?

7. Чи допустимим є такий опис масиву:

VAR A:ARRAY[1..5,1..7] OF REAL;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

8. Чи допустимим є такий опис масиву:

TYPE MAS=ARRAY[’A’..’D’,-2..3] OF INTEGER;

VAR ARR:MAS;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

9. Чи допустимим є такий опис масиву:

TYPE MM=ARRAY[1..10] OF CHAR;

VAR A:ARRAY[2..7] OF MM;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

10. Чи допустимим є такий опис масиву:

TYPE W:ARRAY[5,7] OF INTEGER;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

11. Чи допустимим є такий опис масиву:

TYPE ЗВІРІ=(ВОВК, ЛИСИЦЯ, МЕДВІДЬ);

A:ARRAY[ЗВІРІ] OF ARRAY[1..5] OF CHAR;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

12. Чи допустимим є такий опис масиву:

VAR MASS:ARRAY[1..5],[1..7] OF REAL;

VAR A,B:ARRAY[1..15,0..8] OF REAL; T:BOOLEAN;?

Якщо масив описаний неправильно, то пояснити чому. Відповідь обґрунтувати.

13. Які з вказаних операцій допустимі в Паскалі?

а) A:=B; б) A:=A+B; в) T:=A<>B;

г) READ(A); д) A[1]:=A[15]; е) A[2,3]:=B[4][8]+B[1,1].

 

Завдання 1. Скласти програму для розв'язання поставленого завдання.

Вимоги до програми:

– числові значення розмірностей масивів занести в константи на початку програми;

– числові значення елементів масиву та параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності даних та їх типів;

– вхідні дані і результати обчислень вивести в одному діалоговому вікні у вигляді матриць, розділивши вхідний та вихідний масив порожнім рядком.

Варіанти:

1. Знайти середнє арифметичне елементів вхідного масиву розмірності МхN. Отримати вихідний масив, віднімаючи від кожного елемента вхідного масиву отримане середнє значення.

2. Обчислити суми елементів кожного стовпця заданої матриці розмірності МхN. Результат занести в одновимірний масиві розмірності N.

3. Визначити середнє арифметичне елементів масиву розмірності МхN. Знайти індекси елемента масиву, найближчого до отриманого середнього значення.

4. Задана матриця розмірності 5x5 та число К (К 5). Розділити елементи К-го рядка на діагональний елемент, розміщений у цьому ж рядку.

5. Задана матриця А, розмірності 4x4 і числа К та L (). З L-гo рядка відняти К-ий, помножений на .

6. Задана дійсна матриця розмірності МхN, у якій не всі елементи рівні нулю. Отримати нову матрицю шляхом ділення всіх елементів даної матриці на її найбільший за модулем елемент.

7. Дана матриця розмірності МхN. Знайти суму найбільших значень елементів її рядків.

8. Дана дійсна матриця розмірності МхN. Отримати послідовність кількостей від'ємних елементів у кожному рядку. Результат занести в одновимірний масиві розмірності М.

9. Дана дійсна матриця розмірності МхN. Отримати послідовність добутків квадратів тих елементів кожного рядка, модулі яких належать відрізку [1;3]. Результат занести в одновимірний масиві розмірності M.

10. Дана дійсна матриця розмірності МхN. Знайти середнє арифметичне кожного з рядків, що мають парні номери.

11. Всі елементи з найбільшим значенням в даній цілочисельній квадратній матриці порядку 8 замінити нулями.

12. Дана дійсна матриця розмірності 4х6. Знайти середнє арифметичне найбільшого і найменшого значень її елементів.

13. В даній дійсній квадратній матриці порядку N знайти суму елементів першого рядка, в якому розміщений елемент з найменшим значенням.

14. Отримати дійсну матрицю А порядку 5, перший та другий рядки якої задаються відповідно формулами , а елементи кожного наступного рядка рівні сумі відповідних елементів двох попередніх рядків.

15. Дано дві дійсні квадратні матриці порядку 4. Отримати нову матрицю множенням елементів кожного рядка першої матриці на найбільше із значень елементів відповідного рядка другої матриці.

 

Завдання 2. Скласти програму для розв'язання поставленого завдання.

Вимоги до програми:

– числові значення розмірностей масивів, елементів масиву та параметрів обчислень ввести з клавіатури з відповідною перевіркою коректності даних та їх типів;

– масиви визначати лише після введення їх розмірностей;

– для опрацювання елементів масиву використати вкладені оператори циклу;

– вхідні дані і результати обчислень вивести на екран в одному діалоговому вікні у вигляді матриць, відокремивши вхідний та вихідний масиви порожнім рядком.

 

Варіанти:

 

1. Задано одновимірний масив X розмірності N. Сформувати з нього матрицю А, що містить по L елементів у рядку. Якщо в останньому рядку не вистачатиме елементів, то доповнити його нулями.

2. Задана матриця А розмірності NхN. Сформувати два одновимірні масиви. В перший переслати по рядках верхній трикутник вхідної матриці, включаючи елементи головної діагоналі, а в другий – нижній трикутник.

3. Задана квадратна матриця. Переставити рядок з максимальним елементом головної діагоналі з рядком із заданим номером.

4. Задані матриця розмірності NxN і ціле число К з проміжку [1;N]. Рядок з максимальним за модулем елементом в К-му стовпці переставити з К-м рядком.

5. Задана квадратна матриця. Видалити з неї рядок і стовпчик, на перетині яких розміщений максимальний елемент головної діагоналі.

6. Знайти добуток двох заданих матриць.

7. Використовуючи дії множення (ділення) рядка на число та додавання рядків, привести задану квадратну матрицю до такого виду, щоб всі елементи нижче головної діагоналі були нульовими.

8. Перший рядок дійсної матриці розмірності 2хN містить координати x, а другий – координати y кожної з N точок. Точки попарно з'єднані відрізками. Знайти довжину найбільшого відрізка.

9. Дана цілочисельна квадратна матриця порядку 8. Знайти перший стовпець, що містить найбільшу суму модулів елементів і для цього стовпця знайти найменше значення елемента.

10. Дана цілочисельна квадратна матриця порядку N. Знайти номери рядків, елементи яких утворюють симетричні послідовності (паліндроми).

11. Дана цілочисельна квадратна матриця порядку N. Отримати суми елементів, розміщених за першим від'ємним елементом кожного рядка. При відсутності від'ємних елементів у рядку значення відповідної суми покласти рівним нулю.

12. Латинським квадратом порядку N називається квадратна таблиця розмірності NхN, кожен рядок і кожен стовпець якої містить всі з чисел 1,2,...,N. Дана цілочисельна квадратна матриця порядку 5. З’ясувати, чи є вона латинським квадратом.

13. Елемент матриці називається сідловою точкою, якщо він є одночасно найменшим у своєму рядку і найбільшим у своєму стовпці. Дана дійсна матриця розмірності 5х6. З’ясувати, чи є сідлові точки у цій матриці. Якщо є, то вказати індекси однієї з них.

14. Дано дійсне число х. Отримати квадратну матрицю порядку 10 вигляду , середина якої заповнюється нулями.

15. Дана цілочисельна матриця розмірності 6x9. Сформувати матрицю, яка отримується з даної при перестановці першого стовпця з дев'ятим, другого – з восьмим, третього – з сьомим, а четвертого – з шостим.

 

Лабораторна робота № 11

 

Тема: Рядки.

Мета: Формування вмінь та навичок в роботі з символьним та рядковим типами даних. Закріплення вмінь та навичок у використанні вказівок вводу-виводу, роботи з масивами.

Контрольні запитання:

1. Які дані мають тип рядок?

2. Як у мові Pascal описуються рядки?

3. Які операції над рядками можна здійснювати?

4. Яке найбільше (найменше) значення може приймати функція LENGTH?

5. Що є результатом виконання функцій: COPY, CONCAT, POS?

6. Для чого використовують процедури: INSERT, DELETE, STR, VAL.

7. Нехай змінна KV має значення ¢Київ – столиця України¢. Записати значення змінної KV при виконанні наступних вказівок і процедур:

LENGTH(KV);

COPY(KV, 8, 7);

CONCAT(KV, ¢ - незалежної держави¢);

POS(¢У¢, KV);

INSERT(¢м. ¢, KV, 1);

DELETE(KV, 16, 10);

STR(2003, KV);

VAL(¢1634¢, KV1, Oks)

 

Завдання 1. Написати програму.

Вимоги до завдання:

- використати дані типу рядок;

- вивести на екран вхідні дані і результати виконання програми.

 

Варіанти:

1. В тексті слова розділені пропуском. Підрахувати кількість слів в тексті. Знайти найдовше слово.

2. В тексті всі букви “а” замінити на “у”, підрахувати кількість замін.

3. Підрахувати кількість букв “т” в заданому тексті.

4. Підрахувати сумарну кількість букв “а “ і “к” в заданому тексті.

5. Видалити всі букви “а” із заданого тексту.

6. Слова із масиву A(N) надрукувати в порядку збільшення їх довжин.

7. Перевірити, чи є частиною заданого слова слово “тол” (скажімо, для слова “столяр” відповідь має бути “так”).

8. Визначити кількість слів у тексті, якщо слова відокремлені пропуском, а після останнього слова стоїть крапка.

9. Видалити з тексту зайві пропуски між словами, залишаючи по одному.

10. Підрахувати в заданому тексті кількість слів, що мають подвоєну літеру.

11. В масиві A(N) знайти всі слова, що містять літеру «н», і надрукувати їх.