laba 1 4

Program lab14;

Uses
    System.SysUtils;

Var
    Num, I: Integer;
    Arr: Array [1 .. 10] Of Integer;
    ArrSgl: Array [1 .. 10] Of Real;
    IsCorrect: Boolean;

Begin
    Writeln('Данная программа формирует "сглаженный" массив из введенного.');

    Repeat
        IsCorrect := True;

        Try
            Writeln('Введите количество элементов массива от 3 до 10.');
            Readln(Num);
        Except
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

        If IsCorrect And ((Num<3) or (Num>10)) Then
        Begin
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

    Until (IsCorrect);

    Writeln('Введите элементы массива.');

    For I := 1 To Num Do
    Repeat
        IsCorrect := True;

        Try
            Write('Введите ', I, ' элемент массива: ');
            Readln(Arr[I]);
        Except
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

    Until (IsCorrect);

    ArrSgl[1] := Arr[1];
    ArrSgl[Num] := Arr[Num];

    For I := 2 To (Num - 1) Do
        ArrSgl[I] := (Arr[I - 1] + Arr[I] + Arr[I + 1]) / 3;

    Write('Вывод сглаженного массива: ');

    For I := 1 To Num Do
        Write(ArrSgl[I]:5:1, ' ');

    Readln;

End.