Составьте для вычислителя алгоритм, пользуясь которым он запросит последовательность n чисел и сообщит среднее арифметическое.

проверь орфографию и если не будет потом работать измени i: =1 на i: =0

pascal 

var 

    n,z,l: integer;

    a: array[1..30] of integer;

begin

readln('kol-vo chisel-',n);

for i: =1 to n do

begin

readln(a[i]);

l=l+a[i];

end;

z=l/n;

writeln('srednee arifm-',z);

end.

 

Program n2; const n=10; var a: array [1..n] of integer; i,k,j,temp: integer; begin randomize; writeln('исходный массив'); k: =0; for i: =1 to n do begin a[i]: =random(201)-100; write(a[i],' '); end; writeln; writeln('полученный массив: '); for i: =1 to n do for j: =i to n do if a[j]> a[i] then begin temp: =a[i]; a[i]: =a[j]; a[j]: =temp end; for i: =1 to n do begin write(a[i],' '); if (a[i]< 0) and (i mod 2=0) then k: =k+1; end; writeln; write('кол-во отрицательных элементов на четных местах: ',k); end.

program p1;

uses crt;   вывод окошка

const n = 30;

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

i, max, max2 : integer;

begin

 

  for i: =1 to n do begin   вывод элементов массива с рандома

a[i]: =   random (100);

  write( a[i]: 4);

  end;

          writeln;

    max: = a[1];   принимаем первый элемент массива за макс

    max2: = a[1];   принимаем первый элемент массива за макс

   

  for i: =1 to n do begin               находим первый max                                                                  

    if   max< a[i] then

      max: = a[i];

      end;

       

      for i: =1 to n do begin                             находим второй max2

        if (max2< a[i]) and ( a[i]< > max) then

          max2: = a[i];

          end;

         

          writeln('max=',max);

          writeln('max2=',max2);

          end.