2 задачи на массивы.

[YorikBir]

1
Из заданной квадратной матрицы V сформировать матрицу W следующим образом: удалить из матрицы V k-ую строку и k-ый столбец. Значение k задано. Исходную и полученную матрицу вывести в общепринятом виде.

по первой есть наработки

a:array[1..10,1..10] of real;
i,j,m,k:integer;
Begin
Writeln('razmernost');
readln(m);
for i:=1 to m do
for j:=1 to m do
readln(A[i,j]);
writeln('kakyu udalit');
readln(k);
for i:=1 to m do
Begin
for j:=1 to m do
writeln(A[i,j]);
writeln
end;
readln;
end.

но она не почему то неправильно выводит ответ.

2 задача для меня лес зелёный.


Дан интервал (а,b) и два произвольных массива V, W размера k, n соответственно. Найти количество положительных элементов массива V, попадающих в интервал (а,b), и количество положительных элементов массива W, попадающих в интервал (а,b). Исходные данные взять самостоятельно.

Помогите с решением.

[morgan97]

2 задача:

var
q,k,a,b,i,j,kolvov,kolvow,n,m,chet:integer;
x:array [1..100] of integer;
v:array [1..100] of integer;
w:array [1..100] of integer;
begin
  kolvov:=0;
  kolvow:=0;
  randomize;
  readln(a,b);
  readln(k,n);
  {заполняем интервал с а до в, в массив х }
  for i:=a to b do x[i]:=i;
  {массивы v,w заполняем рандомом}
  for i:=1 to k do v[i]:=random(100);
  for i:=1 to n do w[i]:=random(101);
  {и проверка}
  chet:=b-a;
  for i:=1 to chet do begin
    for j:=1 to k do begin
      if v[j]=x[i] then kolvov:=kolvov+1;
    end;
    for q:=1 to n do begin
      if w[q]=x[i] then kolvow:=kolvow+1;
    end;
  end;
  writeln('kolvow: ',kolvow,', kolvov: ',kolvov);
end.

Потестируй ее получше, если возникнут проблемы- напишешь в теме.

[YorikBir]

А как бы мне ручной ввод массива задать?

[morgan97]

измени эти строки

for i:=1 to k do v[i]:=random(100);
  for i:=1 to n do w[i]:=random(101);

на

for i:=1 to k do readln(v[i]);
  for i:=1 to n do readln(w[i]);

[YorikBir]

Спасибо ,а в первой задаче решение правильное или нет ,а то у меня ответ неправильный.

[llatpoh]

ну первая у тебя выводит массив м на м,а не то ,что нужно,сформируй второй массива,как к-1 на к-1,потом ставь i от k до m-1 и принимай значение массива b[i,j]:=b[i+1,j];потом тоже самое для j от k до m-1,первый выводишь м на м ,второе м-1 на м-1
можно по-другому,но если с матрицами не работал,то так проще

[YorikBir]

А поподробнее код написать можно?