Приклад виконання завдання

Дано масив А(32). Сформувати новий масив, елементами якого є додатні елементи масиву А. На друк вивести також найменше з додатніх елементів масиву.

program lab5_1;

const n=32

var

a: array [1..n] of real;

b: array [1..n] of real; {b- масив додатних чисел}

min: real;

k,i: integer;

begin

writeln (введіть елементи масиву);

for i:=1 to n do

begin

write (a[, i:2, ]=);

Readln (a[i])

end;

k:=1;

{формуємо масив b}

for i:=1 to n do if a[i]>0 then

begin

b[k]:=a[i];

k:=k+1

end;

{пошук мінімального елемента у масиві b}

min:=b[1];

for i:=2 to n do if min>b[i] then min:=b[i];

{виведення вхідного масиву a}

for i:=1 to n do writeln (a[, k:2, ]=, a[k]:6:2);

{виведення результуючого масиву b}

writeln (масив додатних чисел);

for i:=1 to n do writeln (b[, k:2, ]=, b[k]:6:2);

writeln (найменше дoдатнє число min=, min:6:2)

end.

Варіанти завдань

1. Дано координати точок Якщо точка попадає в площину, обмежену колом , то вивести на друк координати цієї точки і повідомлення “ТОЧКА В ПЛОЩИНІ”; Якщо точка за межами кола, то вивести на друк координати точок і повідомлення “ТОЧКА ЗА МЕЖАМИ”. .

2. Дано цілочисловий одновимірний масив, який складається з 16 елементів. Знайти парні елементи масиву, які більші числа А і їх кількість. Число А ввести з клавіатури.

3. Дано одновимірний масив Р, який складається з 16 елементів. Знайти номери тих елементів, модуль яких дорівнює заданому числу А. Число А ввести з клавіатури.

4. Дано цілочисловий одновимірний масив Т, який складається з 25 елементів. Сформувати два масиви: перший, який складається з додатніх елементів масиву Т, другий – з від’ємних.

5. Дано одновимірний масив Р, який складається з 30 елементів. Знайти мінімальний елемент і його порядковий номер. Знайти числа, які знаходяться перед мінімальним елементом, поділити на нього. Вивести на друк заданий і новоутворений масиви.

6. Дано одновимірний масив Р, який складається з 32 елементів. Обчислити значення функції для від’ємних елементів масиву і підрахувати їх кількість.

7. Обчислити елементи масиву Т, який складається з 8 елементів:

8. Дано одновимірний масив Х, який складається з 15 елементів. Визначити півсуму найбільшого і найменшого елементів масиву.

9. Дано одновимірний масив С, який складається з 16 елементів, поміняти місцями максимальний і мінімальний елементи.

10. Дано одновимірний масив В, який складається з 12 елементів. Сформувати вектор С, що повинен складатися з елементів вектора В, які знаходяться перед максимальним елементом. Вивести на друк вектори В і С.

11. Дано цілочисловий одновимірний масив С, який складається з 15 елементів. Знайти максимальний елемент і його порядковий номер. Всі непарні числа, які знаходяться за максимальним елементом, звести до квадрата. Вивести на друк заданий і новоутворений масиви.

12. Обчислити значення перших 15 елементів геометричної прогресії, коли відомий перший елемент і її знаменник . Наступний елемент геометричної прогресії утворюється множенням попереднього на знаменник прогресії.

Примітка: для розміщення в пам’яті обчислених елементів прогресії їх слід оголосити як масив.

13. Дано одновимірний масив С, який складається з 12 елементів. Вилучити з масиву -й елемент масиву ( ).

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

15. Дано цілочисловий масив А, який складається з 12 елементів. Створити масив С, який складається з непарних чисел масиву А, полічити кількість елементів масиву С. Вивести на друк заданий і новоутворений масиви.

Робота з двовимірними масивами

Завдання 3

Написати програму опрацювання інформації в двовимірних масивах.