Задание 2

Задана матрица B(b_ij), сформировать матрицу A(a_ij), где

.

Вычислить суммы элементов нечетных строк матрицы А.

Решение

program Matrica; {название программы}

{Задание2 выполнено учащимся № группы ФИО № варианта }

Uses

crt; {подключение модуля для работы с экраном}

var {объявление переменных}

i,j,n,m,s:integer;

a,b:array[1..50,1..50] of integer;

begin {начало программы}

clrscr; {очистка экрана}

writeln('Задание 2'); {вывод сообщений на экран}

write('Введите количество строк матрицы В n=');

readln(n); {чтение переменной n}

write('Введите количество столбцов матрицы В m=');

readln(m); {чтение переменной m}

{печать разделительной линии}

writeln('======================================');

writeln('Введите исходный массив В');

for i:=1 to n do {цикл по i от 1 до n}

for j:=1 to m do {цикл по j от 1 до m}

read(b[i,j]); {ввод элемента b[i,j] с клавиатуры}

writeln('======================================');

writeln('Полученный массив А');

{формирование нового массива А}

for i:=1 to n do {цикл по i от 1 до n}

Begin

for j:=1 to m do {цикл по j от 1 до m}

Begin

{вычисление элемента a[i,j]}

a[i,j]:=2*b[i,j]+1;

write(a[i,j]:5); {вывод элемента а[i,j] на экран}

end; {конец цикла по j}

writeln;

end; {конец цикла по i}

writeln('=====================================');

writeln('Суммы нечетных строк');

{вычисление сумм нечетных строк}

for i:=1 to n do {цикл по i от 1 до n}

Begin

s:=0;

for j:=1 to m do {цикл по j от 1 до m}

{если i – нечетное, то накапливается сумма s}

if odd(i) then

s:=s+a[i,j];

{если i – нечетное, то s выводится на печать}

if odd(i) then

write (s:8);

end; {конец цикла по i}

readkey; {ожидание нажатия клавиши}

end. {конец программы}

Результат выполнения программы представлен на рис. 4.2.

Рис. 4.2. Результат выполнения программы