лаба1н4

program Project4;

Uses
    Windows, System.SysUtils;

Var
    I, N: Integer;
    Arr, NewArr: Array of Real;
    IsCorrect: Boolean;

Begin
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);

    Writeln('Данная программа предназначена для формирования сглаженного массива.');
    Repeat
        IsCorrect := True;
        Try
            Writeln('Введите количество элементов массива:');
            Readln(N);
        Except
            IsCorrect := False;
            Writeln('Введите верные данные!');
        End;
        If IsCorrect And (N < 1) Then
        Begin
            IsCorrect := False;
            Writeln('Введите верные данные!');
        End;
    Until IsCorrect;
    SetLength(Arr, N);
    For I := 0 To N - 1 Do
    Begin
        Repeat
            IsCorrect := True;
            Try
                Writeln('Введите ', i + 1, ' элемент:');
                Readln(Arr[I]);
            Except
                Writeln('Введите верные данные!');
                IsCorrect := False;
            End;
        Until IsCorrect;
    End;

    SetLength(NewArr, N);
    NewArr[0] := Arr[0];
    NewArr[N - 1] := Arr[N - 1];
    For I := 1 To N - 2 Do
        NewArr[I] := (Arr[(I - 1)] + Arr[I] + Arr[(I + 1)]) / 3;
    Writeln('Сглаженный массив:');
    For I := 0 To N - 1 Do
        Writeln(FormatFloat('0.##', NewArr[I]));
    Readln;
End.