a:mas; n,m,i,j:integer ;

{ Процедура ввода массива }

procedure input_mas(n,m:integer; var a:mas); begin

for i:=1 to n do

for j:=1 to n do readln(a[i,j]); end;

{Функция подсчета количества нечетных чисел} function kol( n,m:integer; a:mas ):integer;

var k:integer ; begin kol:=0;

for i:=1 to n do for j:=1 to n do

if not odd( a[ i,j ] ) then k:=k+1; kol:=k;

end;

{Процедура вывода матрицы} procedure print_mas(n,m:integer; a:mas); begin

for i:=1 to n do begin

for j:=1 to n do write( a[i,j],‘ ‘); writeln;

end;

end;

{ Исполнительная часть основной программы } begin

writeln(‘Введите n<=10 , m<=10’); readln (n,m);

writeln(‘Введите элементы массива по строкам’); input_mas(n,m,a);

writeln(‘Исходная матрица’); print_mas(n,m,a);

writeln(‘Количество нечетных чисел =’,kol(n,m,a)); readln;

end.

Приложение 1. Таблица вариантов задания 7

Составить программу с использованием процедуры и функции на базе задания 6

Вариант

Задание

95

В данной действительной матрице размером n m поменять местами

1строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны.

Дана действительная матрица размером n m, все элементы которой

2различны. В каждой строке выбирается элемент с наибольшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.

Дана целочисленная матрица размером n m. Написать программу, формирующую двумерный массив по следующему правилу:

3элементы первой строки – в порядке возрастания индексов столбцов, элементы второй строки – в порядке убывания индексов столбцов и т. д.

4Дана действительная матрица размером n m. Найти среднее арифметическое каждого из столбцов, имеющих четные номера. Дана действительная матрица размером n m. Все элементы с

5наибольшим значением заменить нулями (таких элементов может быть несколько).

Дана целочисленная матрица размером n m. Написать программу,

6позволяющую находить сумму наибольших значений элементов ее строк.

Дана целочисленная квадратная матрица размером n m. Написать программу, формирующую два одномерных массива. В один

7переслать по строкам верхний треугольник матрицы, включая элементы главной диагонали, в другой – нижний треугольник. Полученные массивы распечатать.

Дана целочисленная квадратная матрица размером n m. Написать

8программу, позволяющую исключать из нее столбец, в котором расположен минимальный элемент главной диагонали.

Дана целочисленная квадратная матрица размером n m. Написать программу, позволяющую поменять местами элементы,

9расположенные в верхней и нижней четвертях, ограниченные главной и побочной диагоналями (за исключением элементов, расположенных на диагоналях).

Задана действительная матрица размером n m. Написать программу,

10позволяющую заменить все элементы, наименьшие в строке, на нули.

Задана целочисленная матрица размером n m. Написать программу,

11позволяющую находить строки с наименьшей и наибольшей суммой и выводить их на печать.

Задана целочисленная квадратная матрица размером n n. Написать

12программу, преобразующую исходную матрицу по правилу: начетные столбцы разделить на среднее значение диагональных элементов матрицы, а четные оставить без изменения.

Задана действительная квадратная матрица размером n n. Вычислить сумму тех из ее элементов, расположенных на главной

13диагонали и выше ее, которые превосходят по величине все элементы, расположенные ниже главной диагонали. Если таких элементов нет, то ответом должно служить сообщение об этом.

96