Войти Зарегистрироваться Войти через
Главная › Все вопросы › Компьютеры › Программирование › Pascal
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отличный ответ
Загрузка...