Найти среднее арифметическое положительных элементов массива a(100), заполненного случайными числами в интервале от -20 до +20 ,

Var b,c,k: integer; a: array[1..100] of integer; d: real; begin k: =0; b: =0; for c: =1 to 100 do begin a[c]: = random(41)-20; writeln('a[',c,']= ',a[c]); if a[c]> 0 then begin b: =b+a[c]; k: =k+1; end; end; d: =b/k; writeln('среднее арифметическое элементов массива равняется ',d); end.

Var   m, n: integer;   ms: array[1..9] of string;   md: array[1..9] of string;   m1: array[11..19] of string;   me: array[1..9] of string;   flag: boolean; begin     flag : = false; { пока ничего не выведено }   ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста';   ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот';   ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот';   md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок';   md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят';   md[8] : = 'восемьдесят'; md[9] : = 'девяносто';   m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать';   m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать';   m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать';   me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять';   me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять';     write('введите целое число от 1 до 1000: ');   readln(m);   if (m < 1) or (m > 1000) then writeln('шутки шутим? ')   else   if m = 1000 then writeln('одна тысяча ')       else   begin           { сотни }       n : = m div 100;       if n > 0 then       begin           write(ms[n]);           flag : = true       end;           { десятки }       m : = m mod 100;       if m = 0 then writeln(' ')       else       begin           if (m > 10) and (m < 20) then           begin               if flag then write(' ');               writeln(m1[m])           end           else           if m > 0 then           begin               n : = m mod 10;               m : = m div 10;               if m > 0 then               begin                   if flag then write(' ') else flag : = true;                   write(md[m])               end;               if n < > 0 then               begin                   { единицы }                   if flag then write(' ');                   write(me[n]);               end           end       end   end end. тестовое решение: введите целое число от 1 до 1000: 429 четыреста двадцать девять

Const   n=30; var   i,k,m: integer; begin   randomize;   writeln('заданы мощности: ');   k: =0;   for i: =1 to n do   begin       m: =random(100)+50;       write(m: 4);       if m> 100 then k: =k+1   end;   writeln;   writeln('количество машин с мощностью больше 100 л.с. равно ',k) end. тестовое решение: заданы мощности:   147 126  69 149 121 112  69 138 144 135 148 133  86 101 109  82  60 126  80  96  66 113  77  86 147 100 131 146  84  70 количество машин с мощностью больше 100 л.с. равно 17