Nuraly Smagulov 25 января 2009 года

помогите плз с задачей(спс заранее)трудновато с массивами

Ввести 5 чисел, а затем определить средний арифметический элемент этого масива

HACKER-1980  20 февраля 2009 года
10

Uses crt;
var a :array[1..5] of Byte;
b :Integer;
sum:Real;
c :Char;
Begin
For b:=1 to 5 do
Begin
Write('Введите число №',b,':');
Readln(a[b]);
sum:=sum+a[b];
End;
sum:=sum/5;
writeln;
writeln('Вывод результата:',sum:3:3);
c:=ReadKey;
End.

Написать комментарий

Оценить:

1очень плохой ответ

2плохой ответ

3средний ответ

4хороший ответ

5отличный ответ