profile
Опубликовано 5 лет назад по предмету Информатика от loki16

найти сумму элементов массива больше  данного числа а

  1. Ответ
    Ответ дан archery
    var b:array[1..100] of integer;
    i, sum, a:integer;
    Begin
      read(a);
      for i:= 1 to 100 do begin
        b[i]:= random(100);
        if b[i] < a then
          sum:= sum + b[i];
      end;
      writeln(sum);
    End.