1. Найти произведение...

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

  1. тве

    тве New Member

    1. Найти произведение положительных элементов массива A(16), удовлетворяющих условию: с<=Ai<=d.
     
    тве, 25 фев 2010
    #1
  2. xelfx

    xelfx New Member

    var a:array [1..16] of integer;
    i,s,c,d:integer;
    Begin
      randomize;
      read(c,d);
      for i := 1 to 16 do begin
        a:= random(d+c) - c;
        if a>0 then s:= s + a;
      end;
      writeln(s);
    End.
     
    xelfx, 25 фев 2010
    #2

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

Наша группа