Ответы
Ответ дал:
0
//Pascal
var
c: array [1..12] of real;
i: byte;
mult: real;
begin
randomize;
mult := 1;
for i := 1 to 12 do
begin
c[i] := random * 75;
if ((c[i] > 5.3) and (c[i] < 40.7)) then
mult := mult * c[i];
write(c[i]:7:2);
end;
writeln;
writeln('Произведение элементов от 5,3 до 40,7 = ', mult:10:2);
end.
var
c: array [1..12] of real;
i: byte;
mult: real;
begin
randomize;
mult := 1;
for i := 1 to 12 do
begin
c[i] := random * 75;
if ((c[i] > 5.3) and (c[i] < 40.7)) then
mult := mult * c[i];
write(c[i]:7:2);
end;
writeln;
writeln('Произведение элементов от 5,3 до 40,7 = ', mult:10:2);
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад