Заменить максимальный элемент массива на среднее арифметическое элементов массива

@ghost96 · Регистрация: 15.10.2015

Author24 — интернет-сервис помощи студентам

Написать программу, которая заменяет значение максимального элемента массива на среднее арифмитическое элементов массива. Массив должен вводиться пользователем.

@JokeR.BY · 31.10.2015, 22:16

Pascal

var
    ar: Array Of Single;
    i, n, iMax: Byte;
    sum: Single;
begin
    repeat
        Write('Input array length (>0): ');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n);
    sum := 0; iMax := 0;
    for i := 0 to n - 1 do
    begin
        Write('arr[', i + 1, ']=');
        ReadLn(ar[i]);
        sum := sum + ar[i];
        if (ar[i] > ar[iMax])
        then
            iMax := i;
    end;
    ar[iMax] := sum / n;
    WriteLn; WriteLn;
    Write('After replace: ');
    for i := 0 to n - 1 do
        Write(' ', ar[i]:0:3);
end.

@ghost96 0 / 0 / 1 Регистрация: 15.10.2015 Сообщений: 24
		1
	Заменить максимальный элемент массива на среднее арифметическое элементов массива 31.10.2015, 10:44. Показов 3410. Ответов 1 Метки нет (Все метки) Написать программу, которая заменяет значение максимального элемента массива на среднее арифмитическое элементов массива. Массив должен вводиться пользователем. 0

	31.10.2015, 22:16

Опции темы

Заменить максимальный элемент массива на среднее арифметическое элементов массива

Решение