- Форум
- По малко от всичко
- Информационни технологии
- Задача по информатика...
Код: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 вида хора. Тези, които могат да четат двоичен код и тези, които не могат.