.
Отговор в тема
Резултати от 1 до 21 от общо 21

Hybrid View

  1. #1
    Мега фен Аватара на Chacho
    Регистриран на
    Nov 2006
    Мнения
    15 573
    Код:
    program asdf;
    
    type arr = array[1..10] of real;
    
    var
    a: arr;
    i, count: integer;
    P: real;
    
    begin
    
    count:=0; P:=1;
    
    for i:=1 to 10 do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;
    
    for i:=1 to 10 do
    begin
    if (i mod 2) = 1 then
    P:=P*a[i];
    if a[i]>0 then
    count:=count+1;
    end;
    
    writeln('P=', P:5:2);
    writeln('Broi polojitelni elementi: ', count);
    
    readln;
    end.
    Има 10 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.

  2. #2
    Супер много ми помогна Chacho .. Мерси

Правила за публикуване

  • Вие не можете да публикувате теми
  • Вие не можете да отговаряте в теми
  • Вие не можете да прикачвате файлове
  • Вие не можете да редактирате мненията си