Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент. Протестировать программу на массивах размерностью 8 и 10 элементов.

Program z1;
        var a:array[1..100] of integer;
        n,i:byte;ma:integer;
begin
        write(n=);readln(n);
        for i:=1 to n do begin
                write(i,));readln(a[i])
        end;
        ma:=a[1];
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i]
                end
        end;
        for i:=1 to n do begin
                a[i]:=ma
        end;
        writeln(test n=,n);
        for i:=1 to n do begin
                writeln(a[i])
        end;
        readln
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.