Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива - Pascal ABC

Формулировка задачи:

Дан массив размера N и целые числа K и L (1<=K<L<=N). Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива и его содержимое. Мне нужно без рандома чтоб было обозначен массив.
const N = 10;
var a:array[1..N]of Integer;
    i, j, k, L:Integer;
 
begin
    randomize;
    for i:=1 to N do a[i] := Random(10)+1;
    repeat
        writeln('K=');
        readln(k);
    until (k>=1)and(k<N);
    repeat
        writeln('L=');
        readln(L);
    until (L>k)and(L<=N);
    
    i := k;
    j := L+1;
    while (i<=L)and(j<=N) do begin
        a[i] := a[j];
        inc(i);
        inc(j);
    end;
    j := N - L + k -1;
    for i:=1 to j do begin
        if i>1 then write(', ');
        write(a[i]);
    end;
    writeln;
end.
Добавлено через 6 часов 58 минут напишите хоть кто-нибудь.


textual

Код к задаче: «Удалить из массива элементы с номерами от K до L включительно и вывести размер полученного массива - Pascal ABC»

writeln('Введите в строку через пробелы ',N,' целых чисел');
for i:=1 to N do
read(a[i]);
writeln;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.000 из 5

Источник