Категория - Информатика Автор - Mdsk01 6 лет назад ПАСКАЛЬ!!! ПОЖАЛУЙСТА, ПОМОГИТЕ! Заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.
Категория - Информатика Автор - Mdsk01 6 лет назад ПАСКАЛЬ!!! ПОЖАЛУЙСТА, ПОМОГИТЕ! Заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.
Ответ Автор - csharp 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.