Графическими
Звуковыми
Текстовыми
А) Вкус - язык
Б) Обоняние(нос), зрение (глаза)
В) зрение (глаза)
Г) Осязание - пальцы
Д) Обоняние (нюх) зрение(глаза) слух(уши)
Е) зрение (глаза) осязание, слух
Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
Const n=8;
var x:array[1..n] of real;
i:integer; min:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i]<min then min:=x[i];
for i:=1 to n do
if x[i]<0 then x[i]:=min;
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.
</span>
А чем тут помочь , если тут все уже решено?