Помогите с задачей.Дан...

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

  1. Веруня

    Веруня New Member

    Помогите с задачей.Дан одномерный массив A размерности N. Найти количество элементов, больших заданного числа В и их произведение.(VisualBasic)
     
  2. Настя*

    Настя* New Member

    program a:
    uses crt;
    var i:,n:integer;
    a:array[1..n] of real;
    b,s:real;
     
    begin
    clrscr;
    reanln('N= ',n);
    s:=1;
    for i:=1 to n do begin
    readln('a[',i,']= ',a);
    end;
    for i:=1 to n do begin
    if a>b then
    s:=s*a;
    endif;
    end;
    writeln('произведение равно ',s);
    readkey;
    end.
     

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

Наша группа