Алгоритмы и программы. Афанасьева Т. В - 135 стр.

UptoLike

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

135
writeln;
writeln('Задание : удалить строку');
writeln;
repeat
writeln('введите номер строки');
readln(k); { считывание номера строки }
{ с последующей проверкой }
if k>5 then
writeln('Массив 5x5.Введите число < 5');
until (0<k) and (k<5) ;
for i:=k to 4 do
a[i]:=a[i+1];
for j:=1 to 5 do
a[5,j]:=0;
writeln;
writeln('Результат');
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(a[i,j]:3); {вывод измененной матрицы}
writeln;
end;
end.
Рассмотрим обработку двумерных массивов, представляющих собой
числовые матрицы.
1) Суммирование матриц.
Фрагмент программы, реализующий суммирование:
for i:=1 to n do
for j:=1 to m do
c[i,j]:=a[i,j]+b[i,j];
{Можно a[i,j]:=a[i,j]+b[i,j]}
2) Умножение вектора на матрицу. Результатом будет одномерный
массив.
program mm;
{ аналогично
предыдущей }
begin
for i:=1 to N do read(b[i]);
for j:=1 to M do