№1. дан массив из 30-ти элементов. каждый элемент может принимать целочисленные значения от -100 до 100. напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. дан массив из 40 элементов. каждый элемент может принимать целочисленные значения от 0 до 200. напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

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

i, j, cou, coumax, amax: integer;

begin

    coumax: =0;

    for i: =1 to 40 do

      readln(a[i]);

    for i: =1 to 40 do begin

      cou: =0;

      for j: =1 to 40 do

          if(a[i]=a[j]) then inc(cou);

      if(cou> coumax) then begin

          coumax: =cou;

          amax: =a[i];

      end;

    writeln(amax, '  is the most repeated value');

end.

 

var a1, temp, cou, i, sum: integer;

begin

    read(a1);

    if (a1> =0) then cou: =1 else cou: =0;

    if (cou> 0) then sum: =a1 else sum: =0;

    for i: =2 to 40 do begin

      read(temp);

      if (temp> 0) and (temp mod a1=0) then begin

          inc(cou);

          inc(sum,temp);

      end;

    end;

    writeln(sum/cou)

end.

Var   x,y: integer;   vcp,dx,dy: real; begin   write('возраст тани='); read(x);   write('возраст мити='); read(y);   vcp: =(x+y)/2;   dx: =x-vcp; dy: =y-vcp;   writeln('средний возраст равен ',vcp);   if dx> 0 then begin       writeln('таня старше среднего возраста на ',dx,' лет,');       writeln('а митя младше среднего возраста на ',-dy,' лет.')   end   else       if dx=0 then writeln('таня и митя ровесники')       else begin           writeln('таня младше среднего возраста на ',-dx,' лет,');           writeln('а митя старше среднего возраста на ',dy,' лет.')       end end. тестовое решение: возраст тани=15 возраст мити=12 средний возраст равен 13.5 таня старше среднего возраста на 1.5 лет, а митя младше среднего возраста на 1.5 лет.

Const       n = 25; var       a: array[1..n] of real;       i, j: integer;       min, max: real;       sum, product, harmonic: real; begin       {ввод массива}       writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(40) - 20;               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               sum : = sum + a[i];       writeln('average = ', sum / n);             {минимум и максимум}       min : = a[1];       for i : = 1 to n do               if min > a[i] then min : = a[i];       writeln('min = ', min);             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then {если нужен фильтр}                       sum : = sum + a[i];       writeln('sum = ', sum); end.