Найти сумму элементов...

Тема в разделе "Информатика", создана пользователем many776, 26 янв 2010.

  1. many776

    many776 New Member

    Найти сумму элементов массива больше данного числа а
     
    many776, 26 янв 2010
    #1
  2. OlegR

    OlegR New Member

    Var b:array[1..100] of integer;
    i, sum, a:integer;
    Begin
      read(a);
      for i:= 1 to 100 do begin
        b:= random(100);
        if b < a then
          sum:= sum + b;
      end;
      writeln(sum);
    End.
     
    OlegR, 26 янв 2010
    #2

Поделиться этой страницей

Наша группа