Предмет: Информатика,
автор: Mdsk01
ПАСКАЛЬ!!! ПОЖАЛУЙСТА, ПОМОГИТЕ!
Заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.
Ответы
Автор ответа:
1
- const
- N = 10; // количество элементов в массиве
- var
- arr: array[1..N] of real;
- i: integer;
- sum: real;
- average: real;
- begin
- Writeln('Введите ', N, ' элементов..');
- for i := 1 to N do
- begin
- Write(i, '-й элемент: ');
- Readln(arr[i]);
- sum := sum + arr[i];
- end;
- average := sum / N; // среднее арифметическое
- for i := 1 to N do
- if (arr[i] > average) then
- arr[i] := average;
- for i := 1 to N do
- Write(arr[i], ' ');
- end.
Mdsk01:
вы прогоняли программу? работает, спасибо, но там куча нулей, все огромное. я новичок, не знаю, как привести в нормальный вид
Похожие вопросы
Предмет: Литература,
автор: mosofii
Предмет: Физика,
автор: smurfikk228
Предмет: Математика,
автор: irraa060908100
Предмет: История,
автор: kirilovsergey15
Предмет: Физика,
автор: Diela2003