Очень срочно

[Рітка-кулеметчиця]

Пллз решите
Дан двухмерный массив. Удалить из него:
а) k-ю строку;
б) s-й столбец;
в) первую из строк, сумма, элементов которых не превы-
шает заданное число n;
г) первый из столбцов, количество нулей в котором рав-
но заданному числу n;
д) две строки, одна из которых расположена перед s-й
строкой, а вторая — перед p-й;
е) два столбца, один из которых расположен после k-го
столбца, а второй — перед k-м столбцом;
ж) все строки с n-й по m-ю (n ≤ m);
з) все столбцы с s-го по q-й (s ≤ q);
и) все строки с четными номерами (на сколько уменьшит-
ся количество строк?);
к) все столбцы, номер которых кратен 3 (на сколько умень
шится количество столбцов?).

[alex_fcsm]

uses crt;
const m=4;
      n=5;
var i,j,maxi,maxj:integer;
    a:array[1..m,1..n] of integer;
    len,wid:integer;
    
procedure DeleteStr(x:integer);
begin
for i:=maxi to len-1 do
 for j:=1 to wid do
  a[i,j]:=a[i+1,j];
dec(len);
end;


procedure DeleteSt(x:integer);
begin
for j:=x to wid-1 do
 for i:=1 to len do
  a[i,j]:=a[i,j+1];
dec(wid);
end;


begin
clrscr;
len:=m;wid:=n;
for i:=1 to len do
 begin
 for j:=1 to wid do
  begin
  a[i,j]:=random(100);
  write(a[i,j]:3);
  end;
 writeln;
 end;
 writeln('Stroka');
readln(maxi);
writeln('Stolbec');
readln(maxj);
DeleteStr(maxi);
DeleteSt(maxj);
  writeln('=============================');
for i:=1 to len do
 begin
  for j:=1 to wid do
   write(a[i,j]:4);
   writeln;
 end;
end.

[Рітка-кулеметчиця]

Да Турбо Паскаль

[Рітка-кулеметчиця]

Мне нужна здать ето в одном формате

[alex_fcsm]

Переделал под процедуры теперь удаляйте что хотите

[Рітка-кулеметчиця]

a:array[1..m,1..n] of integer;-unknown identifier

[alex_fcsm]

Скопируйте все из браузера

[Рітка-кулеметчиця]

а можна описание к каждому действию

[alex_fcsm]

Задавайте конкретные вопросы

[Рітка-кулеметчиця]

Спасибо репутация +++++++++