Интерактивная презентация - диалог между пользователем и компьютером. В этом случае презентацией управляет пользователь, т. е. он сам осуществляет поиск информации, определяет время ее восприятия, а также объем необходимого материала. В таком режиме работает ученик с обучающей программой, реализованной в форме мультимедийной презентации. При индивидуальной работе мультимедийный проектор не требуется. Все интерактивные презентации имеют общее свойство: они управляются событиями. Это означает, что когда происходит некоторое событие (нажатие кнопки мыши или позиционирование указателя мыши на экранном объекте), в ответ выполняется соответствующее действие. Например, после щелчка мышью на фотографии картины начинается звуковой рассказ об истории ее создания.
var i, n: longint; a: array[1..10] of real; amin, amax, p: real; begin assign(output, 'output.txt'); rewrite(output); readln(n); if n = 2 then begin writeln('0 '); close(output); end else begin p := 1; for i := 1 to n do read(a[i]); amin := a[1]; for i := 1 to n do if amin >= abs(a[i]) then amin := a[i]; amax := a[1]; for i := 1 to n do begin if amax <= a[i] then amax := a[i]; end; if n > 2 then for i := 2 to n - 1 do p := p * a[i]; write(p:0:3); close(output); end; end.
Все интерактивные презентации имеют общее свойство: они управляются событиями. Это означает, что когда происходит некоторое событие (нажатие кнопки мыши или позиционирование указателя мыши на экранном объекте), в ответ выполняется соответствующее действие. Например, после щелчка мышью на фотографии картины начинается звуковой рассказ об истории ее создания.
a: array[1..10] of real;
amin, amax, p: real;
begin
assign(output, 'output.txt');
rewrite(output);
readln(n);
if n = 2 then
begin
writeln('0 ');
close(output);
end
else
begin
p := 1;
for i := 1 to n do
read(a[i]);
amin := a[1];
for i := 1 to n do
if amin >= abs(a[i]) then
amin := a[i];
amax := a[1];
for i := 1 to n do
begin
if amax <= a[i] then
amax := a[i];
end;
if n > 2 then
for i := 2 to n - 1 do
p := p * a[i];
write(p:0:3);
close(output);
end;
end.