Ответы и объяснения

Лучший Ответ!
2013-11-24T13:03:00+00:00
Program Task;
Var a: Array [1..5] of Real;
    sum: Real;
    count, i: Integer;
Begin
    WriteLn('Введите 5 вещественных чисел через пробел');
    For i := 1 To 5 Do
        Read(a[i]);
    WriteLn('Элементы от -1 до 1:');
    For i := 1 To 5 Do
        If (a[i] >= -1) And (a[i] <= 1) Then
        Begin
            Write(a[i], ' ');
            sum := sum + a[i];
            count := count + 1;
        End;
    WriteLn;
    WriteLn('Сумма: ', sum);
    WriteLn('Количество: ', count);
    ReadLn;
End.
Программа запускается,но можно ее как-то по проще написать?
Упростил.
Какие мне 5 вещественных чисел вводить?
Программа запускается,но проскакивает когда я числа ввожу