Массивы. Cреднее арифметическое. Сравнение сумм элементов двух одномерных массивов. Подсчёт количества максимальных элементов массива.

Код к задаче:

«Подсчёт количества максимальных элементов массива на языке программирования Pascal ABC»

const n=20;

var a:array[1..n]of integer;

    i,max,kmax:integer;

begin

    randomize;

    writeln('A:');

    for i:=1 to n do

     begin

      a[i]:=random(10);

      write(a[i],' ');

      if i=1

       then begin max:=a[1];kmax:=1 end

       else

        begin

         if a[i]>max

           then begin max:=a[i];kmax:=1 end

           else if a[i]=max then inc(kmax)

        end

     end;writeln;

    writeln('rezult: ',kmax)

end.

Краткое описание документа:

1. Сравнение сумм элементов двух одномерных массивов.

Про­грамма на язы­ке Pascal, ко­то­рая слу­чай­ным обра­зом ге­не­ри­ру­ет оди­на­ко­вое ко­ли­чес­тво эле­мен­тов двух одно­мерных мас­си­вов в ди­а­па­зо­не 0...100, счи­та­ет сумму эле­мен­тов, сра­вни­ва­ет суммы эле­мен­тов мас­си­вов ме­жду со­бой.

2. Код к задаче "Подсчёт количества максимальных

элементов массива".

Пре­дста­влен код (тек­ст) про­граммы для по­дсчё­та ко­ли­чес­тва мак­си­маль­ных эле­мен­тов мас­си­ва на язы­ке про­грамми­ро­ва­ния Pascal.

3. Cреднее арифметическое элементов одномерного массива.

Про­грамма на язы­ке Pascal, де­мон­стри­ру­ю­щая вы­чис­ле­ние сре­дне­го ариф­ме­ти­чес­ко­го слу­чай­ным обра­зом сге­не­ри­ро­ванных эле­мен­тов одно­мерно­го мас­си­ва в ди­а­па­зо­не зна­че­ний от 0 до 100.
При­ме­ча­ни­е* ко­ли­чес­тво эле­мен­тов мас­си­ва поль­зо­ва­тель вво­дит с кла­ви­а­ту­ры ПК.