Удалить из массива те элементы, которые больше среднего арифметического

@k1nd3rrr · Регистрация: 03.12.2015

Дан массив целых чисел D1,...,D30. Удалить из него те элементы, которые больше среднего арифметического.

@JokeR.BY · 04.12.2015, 17:31

Pascal

const
    cn = 30;
var
    ar: Array[1..cn] Of Integer;
    i, j, n: Byte;
    sum: LongInt;
begin
    sum := 0; n := cn;
    Randomize(); Write('Original array:');
    for i := 1 to cn do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:5);
        Inc(sum, ar[i]); // sum := sum + ar[i];
    end;
    WriteLn; WriteLn('AVR=', (sum / cn):0:3); i := 1;
    while (i < n) do
    begin
        if (ar[i] > (sum / cn))
        then
        begin
            Dec(n);
            for j := i to n do
                ar[j] := ar[j + 1];
        end
        else
            Inc(i);
    end;
    Write('Modified array:');
    if (n > 0)
    then
        for i := 1 to n do
            Write(ar[i]:5)
    else
        Write(' Array is empty!');
end.

@k1nd3rrr · 04.12.2015, 18:40 **[ТС]**

извините а можете блок схему еще зделать просто вобще не разбираюсь(

@k1nd3rrr · 06.12.2015, 18:53 **[ТС]**

помогите зделать блок схему

@k1nd3rrr 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 16
		1
	Удалить из массива те элементы, которые больше среднего арифметического 04.12.2015, 12:22. Показов 1805. Ответов 3 Метки нет (Все метки) Дан массив целых чисел D1,...,D30. Удалить из него те элементы, которые больше среднего арифметического. 0

@k1nd3rrr 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 16
	04.12.2015, 18:40 [ТС]	3
	извините а можете блок схему еще зделать просто вобще не разбираюсь( 0

@k1nd3rrr 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 16
	06.12.2015, 18:53 [ТС]	4
	помогите зделать блок схему 0

Опции темы