profile
Опубликовано 4 года назад по предмету Информатика от KOateNoK

1. Написать и отладить программу заполнения массива из 10 элементов случайными числами от -5 до 5. Удалить элемент с номером 4. Распечатать массив до удаления элемента и после.

  1. Ответ
    Ответ дан StrangeT

    var
    a:array [1..10] of integer;
    i:integer;
    begin
    Randomize;
    for i:= 1 to 10 do a[i]:=random(10)-5;
    for i:= 1 to 10 do write(a[i],' ');
    writeln;
    for i:= 4 to 9 do a[i]:=a[i+1];
    for i:= 1 to 9 do write(a[i],' ');
    end.