ПОМОГИТЕЕЕЕ ПОЖАЛУЙСТА Информатика, паскаль, 11 класс Дан двумерный массив размером 4х3,...

Question

ПОМОГИТЕЕЕЕ ПОЖАЛУЙСТА
Информатика, паскаль, 11 класс
Дан двумерный массив размером 4х3, заполненный случайно на [-10;10]
удалить все строки, в которых последний элемент меньше первого

Answer 1

Const n=4;
      m=3;
var a: array[,] of integer;
    b: array of integer;
    i,j,k: integer;
begin
  setlength(b,n*m);
  setlength(a,n,m);
  randomize;
  writeln('исходный массив:');
  for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
      begin 
        a[i,j]:=random(-10,10);
        write(a[i,j]:4);
      end;  
    writeln;
  end;  
// удаление строк массива  
  k:=0;
  for i:=0 to n-1 do
    if a[i,0]<=a[i,m-1] then<br>    begin
      k:=k+1;
      for j:=0 to m-1 do 
      b[(k-1)*n+j]:=a[i,j];
    end;
// печать нового массива    
  writeln('новый массив:'); 
  setlength(a,k,m);
  for i:=0 to k-1 do
  begin
    for j:=0 to m-1 do
    begin
      a[i,j]:=b[i*n+j];
      write(a[i,j]:4);
    end;   
    writeln;
  end;  
end.

исходный массив:
  -3   5  -5
   2   3   5
  -8   3  -2
   3  -4  -7
новый массив:
   2   3   5
  -8   3  -2

Comments

а можно без setlength и const

---

Без const? А если завтра учитель скажет, что массив не [4,3], а [8,6], то будете во всей программе менять 4 на 8 и 3 на 6, вместо того, чтобы изменить две строки n=4 m=3 ?

---

Командой setlength можно освободить не используемую память, уменьшить размер массива. После того, как удалили строки, часть массива уже не используется, а память занимает.

---

Чтобы убрать setlength( ) нужно заменить 2 строки в описании массивов строку var a: array[,] of integer; заменить на var a: array[0..n-1,0..m-1] и строку b: array of integer; на строку b: array[0..n*m-1] и далее по тесту программы убрать строки setlength(..)