Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 47 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

46
if a[i,j]<min then
begin
min:=a[i,j];
j_min:=j
end;
a[i,j_min]:=0;;
end;
writeln;
writeln(’Результирующая матрица’);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
readln;
{$R-}
end.
Варианты заданий
1. Даны матрица А(n×(n+1)) и два одномерных массива X=(x
1
, ..., x
n+1
) и
Y=(y
1
, ..., y
n+1
), а также натуральные числа р, q. Образовать новую матрицу
размера (n+1)
×(n+2) вставкой после строки с номером р матрицы А новой
строки с элементами x
1
,x
2
, ..., x
n+1
и последующей вставкой после столбца с
номером q нового столбца с элементами y
1
,y
2
, ..., y
n+1
.
2.
Даны массив А=(a
1
, a
2
, ..., a
10
) и матрица B(n×n). Заменить нулями в матри-
це те элементы с четной суммой индексов, для которых имеются равные
среди элементов массива А.
3.
Даны массив А=( a
1
, a
2
, ..., a
10
) и матрица B(n×n). Элементы первой строки
матрицы упорядочены по возрастанию. Получить новую матрицу размера
n
×(n+1), вставив в исходную матрицу новый столбец с элементами массива
А так, чтобы упорядоченность первой строки матрицы не нарушилась.
4.
Дана матрица A(n×m). Получить матрицу, получающуюся из данной: пере-
становкой столбцов: первого с последним, второго с предпоследним и т. д.
5.
Дана матрица A(n×m) и целые числа р и q. Преобразовать матрицу А так,
чтобы строка с исходным номером р непосредственно следовала за стро-
кой с исходным номером q, сохранив порядок следования остальных
строк.
6.
Дана матрица А размерности n×n. Найти и вывести ту строку в этой мат-
рице, которая содержит наибольшее количество четных чисел.

Страницы