Ребят, , ибо меня завтра учитель информтики пристрелит. Составить программу, которая формирует массив из 40 случайных целых чисел от 0

Ребят,помогите пожалуйста,ибо меня завтра учитель информтики пристрелит.Составить программу,которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:

а)сумму нечётных чисел;

б)сумму чисел,кратных 3

  • Код Pascal1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    var m:array[1..40]of integer;
     
    i:byte;
    a,ka,b,c:integer;
     
    begin
    a:=0;ka:=0; //задание А
    b:=0; //задание Б
    c:=0; //задание В
     
    for i:=1 to 40 do
    begin
     m[i]:=random(21);
     
     if m[i] mod 2<>0 then
     begin
      ka:=ka+1;
      a:=a+m[i];
     end;
     
     if m[i]<=10 then b:=b+m[i];
     
     if m[i] mod 3=0 then c:=c+m[i];
     
    end;
     
    for i:=1 to 40 do
     if i=1 then write('M[',m[i],',')
      else
     if i=40 then writeln(m[i],']')
      else
     write(m[i],',');
     
    if ka=0 then ka:=1;
     
    writeln;
    writeln('Среднее арифметическое нечетных чисел=',a/ka);
    writeln('Сумма чисел не превышающих 10=',b);
    writeln('Сумма чисел, кратных 3=',c);
     
    end.
для bottom