1. Дана вещественная матрица размерности n * m. Удалить k столбец матрицы.

У меня работа с одним массивом.

Паскаль.

---

uses crt;

const N=4;

M=6;

var a: array [1 ... n, 1 ... m] of integer;

x, y, k, p: integer;

begin

for x:=1 to n do begin

for y:=1 to m do begin

a[x, y]:=random (21) - 10;

write (a[x, y]:4) ;

end;

writeln;

end;

write ('k=') ; readln (k) ;

if k<=m then p:=m-1 else p:=m;

for y:=k+1 to m do

for x:=1 to n do

a[x, y-1]:=a[x, y];

for x:=1 to n do begin

for y:=1 to p do

write (a[x, y]:4) ;

writeln;

end;

end.

Не указан язык. пример на псевдоязыке. Вариант 4

Массив А (м, н)

Массив Б (м, н-1)

Сформировать (А, Б) ; / / Это процедура которая как-то формирует исходные массивы

Прочитать (к) ; / / Это процедура, которая откуда-то берёт к и проверяет его на корректность

Для стр=1 по м Цикл

Для стлб=1 по к-1 Цикл

Б (стр, стлб) = А (стр, стлб) ;

КонецЦикла;

Для стлб=к+1 по н Цикл

Б (стр, стлб-1) = А (стр, стлб) ;

КонецЦикла;

КонецЦикла;

Ну где-то так