• дано 2 одномерных массива размером 20 ячеек первый массив заполнить случайными числами от 10 до 50 второй заполнить случайными числами от 30 до 90 первый массив отсортировать по возврастанию второй по убыванию посчитать среднее арифметическое повторяющихся чисел.

    язык паскаль

    можно написать алгоритм

Ответы 1

  • uses crt;var a:array[1..20] of integer;b:array[1..20] of integer;i,j,k,min,max:integer;beginwriteln('Первый массив: ');for i:=1 to 20 do begin a[i]:=random(50-10+1)+10; write(a[i]:3); end;writeln;writeln('Второй массив: ');for j:=1 to 20 do begin b[j]:=random(90-30+1)+30; write(b[j]:3); end;writeln;min:=60;writeln('Первый массив в порядке возрастания: '); for i:=1 to 20 do begin for j:=1 to 20 do begin if a[j]<min then begin min:=a[j]; k:=j; end; end; a[k]:=60; write(min:3); min:=60; end;writeln;max:=0;writeln('Второй массив в порядке убывания: '); for j:=1 to 20 do begin for i:=1 to 20 do begin if b[i]>max then begin max:=b[i]; k:=i; end; end; write(max:3); b[k]:=0; max:=0;end;writeln;end.Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.

    • Автор:

      burch
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years