Скласти програму знаходження суми всіх елементів одновимірного (двовимірного) масиву.
Нехай a – одновимірний масив
b – двовимірний масив
Для одновимірного масиву програма матиме такий вигляд:
Var A:array[1..8] of integer;
S,I:integer;
Begin
For I:=1 to 8 do Read (a [I]);
S:=0;
For I:=1 to 8 do S:=S+ a[I];
For I:=1 to 8 do Write (a[I]);
Writeln;
Writeln(’сума=’,s);
End.
Для двовимірного масиву:
Const B: array [1..3,1..3] of integer=((1,-1,2),(-2,3,-3),(4,5,0));
VarS, I, j : integer;
Begin
S:=0;
For I:=1 to 3 do
For j:=1 to 3 do
S:= s+ b[I,j];
For I:=1 to 3 do Begin
For j:=1 to 3 do
Write (b[I,j],’ ‘);
Writeln;
End;
Writeln(‘сума =’,s);
End.
Скласти програму знаходження суми (поелементно) двох одновимірних масивів.
Const N=10;
VarC,b,a: array[1..n] of integer;
I: integer;
Begin
{введення елементів масивів А і В}
for I:=1 to n do
c[I]:=a[I] + b[I];
{вивід суми двох масивів А і В – масиву С}
End.
Далі наводяться тільки ті фрагменти програм, за допомогою яких виконуються дії над елементами масивів, або йде опрацювання табличної інформації.
Скласти програму знаходження кількості непарних елементів одновимірного масиву.
For I:=1 to n do
If a[I] mod 2<> 0 then k:=k+1;
Скласти програму знаходження суми кожного стовпця двовимірного масиву.
For j:=1 to n do
Begin
S:=0;
For I:=1 to n do
S:=s+a[I,j];
Writeln(‘Сума’,j,’ стовпця = ’,s);
End;
Написання та реалізація програми на комп’ютері.
Скласти програму знаходження кількості від’ємних чисел в кожному рядку двовимірного масиву.
For I:=1 to n do
Begin
K:=0;
For j:= 1 to n do
If a[I,j]<0 then k:=k+1:
Writeln(‘кількість від’ємних чисел в’, I ,’ рядку=’,k);
End;
Типові задачі на опрацювання таблиць.
Перестановка елементів масиву. Переставити 2 і 4 елементи одновимірного масиву.
p:=a[2];
a[2]:=a[4];
a[4]:=p;
Поміняти місцями два рядки (стовпчики) двовимірного масиву.
for j:=1 to n do begіn
b:=a[1,j];
a[1,j]:=a[3,j];
a[3,j]:=b;
end;
Пошук елементів. Знайти мінімальний елемент в одновимірному масиві.
mіn:=b[1];
for і:=1 to n do
іf b[і]< mіn then mіn:=h[і];
Знайти максимальний елемент і його індекс у двовимірному масиві.
max:=m[1,1];
for і:=1 to n do
for j:=1 to n do begіn
іf m[і,j]>max then max:=m[і,j]; k:=і; t:=j;
end;
wrіteln('Максимальний елемент', max, 'стоїть в ',k,'рядку', t ,'стовпчику');
Помножити рядок (стовпчик) матриці на число відмінне від нуля.
readln(c);
for і:=1 to n do
a[і,2]:=a[і,2]*c;
Завдання
1.Дано одномірний масив дійсних чисел X та дійсне число а. Скласти програму обробки масиву. Умову завдання представлено нижче:
| Варіант
| Умова
|
|
| Обчислити добуток елементів, що стоять на парних місцях і відмінні від нуля.
|
|
| Знайти середнє арифметичне від'ємних елементів масиву.
|
|
| Знайти середнє арифметичне додатних елементів масиву.
|
|
| Знайти суму модулів елементів масиву, які кратні 3.
|
|
| Підрахувати кількість додатних елементів в масиві та визначити їх індекси.
|
|
| Підрахувати кількість від'ємних елементів в масиві та визначити їх індекси.
|
|
| Знайти суми перших п'яти та останніх п'яти елементів і порівняти їх.
|
|
| Обчислити добуток елементів, які не дорівнюють нулю і стоять на непарних місцях.
|
|
| Обчислити добуток елементів, які не дорівнюють нулю.
|
|
| Обчислити добуток елементів, які мають непарні індекси.
|
|
| Обчислити суму елементів, які мають непарні індекси.
|
|
| Обчислити суму елементів, які мають парні індекси.
|
|
| Знайти найбільший елемент та його індекс.
|
|
| Знайти найменший елемент та його індекс.
|
|
| Підрахувати добуток та кількість елементів, більших за а
|
2. Дано масив дійсних чисел. Скласти програму обробки двовимірних масивів:
| Варіант
| Умова
|
|
| Знайти суми елементів матриці, які розміщені над головною діагоналлю та під нею.
|
|
| Для кожного стовпця матриці знайти максимальний елемент. Знайти їх середнє геометричне.
|
|
| Для кожного рядка матриці знайти мінімальний елемент. Знайти суму цих елементів.
|
|
| Знайти середнє арифметичне та середнє геометричне додатних елементів матриці.
|
|
| Для кожного рядка матриці знайти мінімальний елемент. Знайти суму цих елементів.
|
|
| Визначити та надрукувати значення тих елементів кожного рядка матриці, які перевищують середнє значення всіх елементів матриці.
|
|
| Визначити та надрукувати кількість додатних елементів для кожного стовпця матриці, та знайти їх суму.
|
|
| Для кожного рядка матриці визначити та надрукувати значення максимального елемента та його індексу.
|
|
| Для кожного рядка матриці знайти та надрукувати суму елементів, які стоять в стовпцях з парними номерами.
|
|
| Для кожного стовпця матриці знайти значення та індекс максимального елемента.
|
|
| Поділити елементи кожного стовпця матриці на максимальний елемент цього стовпця.
|
|
| Для кожної стрічки матриці обчислити суму додатних елементів.
|
|
| Для кожного стовпця матриці визначити суму елементів, що стоять під головною діагоналлю.
|
|
| Визначити мінімальний елемент матриці. Значення елементу та його індекси вивести на друк.
|
|
| Визначити і вивести на друк кількість від'ємних елементів у кожному стовпці матриці.
|
3. Запишіть у звіт відповідні тексти програм та результати їх виконання.
Лабораторна робота № 5
Сортування елементів масиву
Мета: навчитися застосовувати методи впорядкування одновимірних масивів при розв’язуванні задач.
Теоретичний матеріал
