Сформировать одномерный массив из 10 случайных элементов в диапазонеот 0 до 100. Найти количество элементов массива, больших среднего арифметическогов

1 Январь 0001



Сформировать одномерный массив из 10 случайных элементов в диапазоне
от 0 до 100. Найти количество элементов массива, больших среднего арифметического
всех его элементов. Если это количество ч?тное, то увеличить каждый элемент массива на
величину индекса; иначе поменять местами центральные элементы. Вывести исходный и
итоговый массивы на экран.

  • Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
    program massiv;

    uses crt;

    var A:array[1..10] of integer; s: real; i,k, p: integer;

    begin

    clrscr;

    randomize;

    writeln (‘задан массив:’);

    for i:=1 to 10 do



    begin

    a[i]:=random(100); {задание массива}

    s:=s+a[i];{ считаем сразу сумму элементов}

    write (a[i]:4); {вывод на экран}

    end;

    s:=s/10;



    for i:=1 to 10 do

    if a[i]>s then p:=p+1;

    if p mod  2= 0 then {проверка на четность}

                              for i:=1 to 10 do a[i]:=a[i]+i

                                 else 

                                            begin

                                            k:=a[5];

                                            a[5]:=a[6];

                                            a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                            end;

    writeln; {дабы у вас ничего не слиплось}

    for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран} 

    end.

     

     

     









Информатика

Комментарии закрыты.