Задача 9 Урок 15- попытка решения

Primary tabs

Submitted by drl on Sun, 11/05/2023 - 19:16

Forums:

Вариант решения задачи из 15 урока:

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.

Есть проблема:

var a:array [1..9] of integer;
    i, n, min, max: integer;
procedure trr(var a: array of integer; k: integer);
begin
  for i:=(k) to high(a) do
  begin
    a[i]:=a[i+1];
    //a[i+1]:=0;
    //write (a[i],' ')
  end;
end;

begin
  i:=0;
  randomize();
  min:=-5;
  max:=8;

    writeln('Было:');
  for i:=low(a) to high(a) do
  begin
    a[i] := min + random(max - min + 1);
    write (a[i],' ');
  end;
  writeln();
  n:=4;
  trr(a,n);

  //for i:=low(a) to high(a) do
  //begin
  //  if i=n then
  //    trr(a,n)
  //  else
  //    write (a[i],' ');
  //end;


  writeln('Стало:');
  for i:=low(a) to high(a) do
  begin
    write (a[i],' ');
  end;
end.
  • Log in to post comments
  • 956 reads

drl

Sun, 11/05/2023 - 19:59 

type
  myArr=array[1..9] of integer;
var a:myArr;
    i, n, min, max: integer;
procedure trr(var myArr; k: integer);
begin
  for i:=(k) to high(a) do
  begin
    a[i]:=a[i+1];
    a[i+1]:=0;
    write (a[i],' ')
  end;
end;

begin
  randomize();
  min:=-5;
  max:=8;
  for i:=low(a) to high(a) do
  begin
    a[i] := min + random(max - min + 1);
    write (a[i],' ');
  end;
  writeln();
  n:=4;
  for i:=low(a) to high(a) do
  begin
    if i=n then
      trr(a,n)
    else
      write (a[i],' ');
  end;
end.