Цитата:
Сообщение от Яся
Сама не знаю!
|
Очень трогательно.
Вообще-то должен Вам сказать, что, просмотрев Ваши прошлые задания, был удивлён изрядно. Там задачи такого... среднего уровня сложности: записи, динамические переменные... А сейчас - эта школьная белиберда. ЧуднО! Ладно, как знаете...
Код:
Const
x:Array[1..15] of Real=(0.01, -27.3, 0, 1.25, -371,
0.5, -0.1, 1.2, -5, -172.3,
19783, -2.7, 43.51, 0, -0.02);
b = -3.0;
Var
i,N:Byte;
P:Real;
Begin
P:=1;
N:=0;
for i:=1 to 15 do
if (x[i]<>0) and (x[i]>b) then
begin
Inc(N);
P:=P*x[i];
end;
Writeln('N = ',N);
Writeln('P = ',P:0:3);
Readln
End.
P.S. Блок-схемами, извините, не занимаюсь.