Question

8. Дан одномерный массив. Удалить из массива максимальный элемент. После удаления сдвинуть все следующие за ним элементы влево. Последнему элементу присвоить значение 0.
Написать правильный код Pascal
Заранее спасибо)

Answer 1

const
    n = 1000;
var
    massiv : array[1..n] of integer;
    countOfElements, maxElement, i, m, j : integer; 
begin
    write('Введите количество элементов массива: ');        readln(countOfElements); 
    writeln('Введите элементы массива');
    for i := 1 to countOfElements do
        read(massiv[i]);
    writeln();
    maxElement := massiv[1];
    for i := 1 to countOfElements do
        if (maxElement < massiv[i]) then maxElement := massiv[i]; 
    m := countOfElements;
    i := 1; 
    while i <= m do 
        if massiv[i] = maxElement then
            begin
                for j := i to countOfElements - 1 do 
                    massiv[j] := massiv[j+1];           
                m := m - 1; 
            end
        else 
            i := i + 1;
    massiv[countOfElements] := 0;          
    write('Максимальный элемент: '); writeln(maxElement);
    for i := 1 to countOfElements do 
        write(massiv[i]:4); 
end.