Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, не превышающих 10

program pr;

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

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arr(-6,7,45,-12,2,7,-15,0,64);   var kp: =0; var sp: =0;   for var i: =0 to a.length-1 do begin       writelnformat('a[{0}]={1}',i,a[i]);       if a[i]> 0 then begin kp+=1; sp+=a[i] end       end;   writeln('сумма ',kp,' положительных элементов равна ',sp) end. результат a[0]=-6 a[1]=7 a[2]=45 a[3]=-12 a[4]=2 a[5]=7 a[6]=-15 a[7]=0 a[8]=64 сумма 5 положительных элементов равна 125 2 begin   writeln(seqgen(40,x-> 45*x+15,1).where(x-> x.isodd).count); end. результат 20 3 begin   writeln(seqgen(25,k-> 7*k+3*k/15,1).average); end. результат 93.6

Первое: program r;       var a: array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum: integer;       begin;       for i: =0 to 8 do               if a[i]> 0 then begin;                       sum: =sum+a[i];                       l: =l+1;               end;       for i: =0 to 8 do               writeln('a[',i,'] = ', a[i]);       write('сумма положительных элементов равна ',sum,', а из количество ',l); end. второе: program t;       var d: array [0..40] of integer; l,x: integer;       begin;       for x: =0 to 40 do begin;               d[x]: =45*x+15;               if d[x] mod 2 = 1 then l: =l+1;       end;       write('кол-во нечётных элементов ',l); end. третье: program y;       var p: array [0..25] of real; k: integer; avg: real; begin;       for k: =0 to 25 do begin;               p[k]: =7*k+3*k/15;               avg: =avg+p[k];       end;       avg: =avg/26;       write('среднее значение элементов массива ', avg); end.