Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него 10-ый элемент

01.01.2001

Задать случайным образом 13 элементов числового массива - числа от 10 до 50. Удалить из него 10-ый элемент.
программа Pascal

  • var
    mas: array[1..13] of integer;
    temp:integer;
    begin
    randomize;
    for temp:=1 to 13 do
    begin
    mas[temp]:=random(40)+10;
    write(mas[temp]," ");
    end;
    for temp:=10 to 12 do mas[temp]:=mas[temp+1];
    temp[13]:=0;
    writeln;
    for temp:=1 to 13 do write(mas[temp]," ");
    readln;
    end.
    отладишь сам.
  • Сколько?
  • могу немного помочь:
    random(40)+10 - необходимый Вам диапазон
    цикл от 0 до 12
    массив [10]:=0;
  • for i:=1 to 13 do
    a [ i ] :=random(41)+10;
    а дальше сам удали a [ 10 ] либо перепиши в другой массив первые 9 и с 11 по 13, либо 11 в 10, 12 в 11 и т д

Вас заинтересует