29 .нужно решить через паскаль авс

Uses crt;
const
    nmax = 20;

var
    A: array[1..nmax] of integer;
    I, m, s: integer;
    Am, kon: text;

begin
    Clrscr;
    Assign(Am, 'Am.txt');
    
    {раскоментировать для записи массива в файл}
    {Rewrite(Am);
    m := Random(nmax - 5) + 5;
    for i := 1 to m do
        Writeln(Am, Random(20));
    Close(Am);}
    
    {считывание данных из файла}
    Reset(Am);
    s := 0;
    m := 0;
    while not eof(Am) do
    begin
        m := m + 1;
        Readln(Am, A[m]);
        s := s + A[m];
    end;
    Close(Am);
    
    Assign(kon, 'kon.txt');
    Rewrite(kon);
    
    if s > 50 then
        Writeln('Сумма элементов массива более 50 и равна: s=', s)
    Else
    begin
        Writeln('Сумма элементов менее 50, вывод исходного массива');
        for i := 1 to m do
        begin
            Writeln('A[', i, ']=', A[i], ' ');
            Writeln(kon, 'A[', i, ']=', A[i], ' ');
        end;
    end;
    
    Close(kon);
    Readkey;
end.

Тарихқа үңілсек ежелгі заманда да мемлекеттер халқының саны мен оның әскерге жарайтын бөлігінің санын анықтау, мал санын, жердің көлемін білу мақсатында есеп жүргізіп отырған. Бұл мәліметтерді салық жинау, соғыс жүргізу және т.с.с. жағдайларда пайдаланған. Қоғамның өзгеруі мен дамып отыру нәтижесінде есепке алып отыратын жаңа бағыттар пайда болған. ХVII ғасырдың ортасында Англияда «Саяси арифметика» деген ғылыми бағыт пайда болған. Бұл бағыт қоғамда болып жатқан түрлі өзгерістерді есепке ала отырып, оның дамуына талдау жүргізуге бағытталған. «Саяси арифметика» бағытымен қатар, Германияда «Міндетті статистика» мектебі пайда болды. Осындай мектептердің арқасында ғылымда жаңа бағыт - статистика пайда болды. Статистика латын тілінде status – жай-күй, құбылыстар реті деген мағынаны береді. Бүгінде статистика деген үлкен ғылым.

Жоғарыда айтқан қоғамның, халықтың даму барысын зерттеуде жиналған ақпараттың көлемі өте үлкен. Сол ақпаратты жинақтап, реттеп, өңдеп және талдап отыру қажет. Осы жұмыстарды электронды түрде атқаруға Еxcel кестелік процессорын пайдалану жолдарын қарастырайық.