profile
Опубликовано 4 года назад по предмету Информатика от dkuprianov

Ввести массив F(n) вещественных
чисел. Если последний элемент массива положительный, то найти max среди
элементов массива и заменить его значений последний элемент массива. Массив
распечатать. Иначе – дать сообщение «Массив остался без изменений»

  1. Ответ
    Ответ дан preceptor
    Program Zadacha;
    Const n = 5;
    Var a: Array[1..n] Of Real;
    i, j: Integer;
    Begin
    WriteLn('Введите ', n, ' чисел через пробел');
    For i := 1 To n DoRead(a[i]);
    If a[n] >= 0 ThenBeginj := 1;
    For i := 1 To n Do
    If a[i] > a[j] Then
    j := i;a[n] := a[j];
    For i := 1 To n Do
    Write(a[i], ' ');
    End
    Else
    WriteLn('Массив остался без изменений');
    ReadLn;
    End.