матрици

[kirito_17]

Задано матрицу А размером 6х4 и числа K, L. Уничтожить Л - ю строчку и K-й
столбец

[ZX Spectrum-128]

http://programmersforum.ru/showthrea...t=70310&page=2

[kirito_17]

не понимаю)))

[ZX Spectrum-128]

Модуль там есть, для работы с матрицами. Вот эта функция вам будет полезна.

(* Функция исключает векторы из матрицы *)
function ExcludeVectorFromMatrix(MPtr : MatrixPtr;Row,Col : byte) : MatrixPtr;

[Mad_Cat]

for i:=l to 6 do
for j:=1 to 4 do
a[i,j]:=a[i+1,j];
for i:=1 to 5 do
for j:=k to 4 do
a[i,j]:=a[i,j+1];

[kirito_17]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a:array[1..6,1..4] of real;
i,j,k,l:Integer;
begin
Writeln('vvedit l');
readln(l);
Writeln('vvedit k');
readln(k);
Writeln('Vvedit elementy matrytsi:');
for i:=1 to 6 do
for j:=1 to 4 do
read(a[i][j]);
begin
write('Matrytsya:');
for i:=l to 6 do
begin
write('');
for j:=1 to 4 do
a[i,j]:=a[i+1,j];
end;
for i:=1 to 5 do
begin
for j:=k to 4 do
a[i,j]:=a[i,j+1];
end;
end;
Writeln('rez:');
for i:=1 to 5 do
begin
Writeln('');
for j:=1 to 3 do
end;
readln;readln;readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.