Var
a:array [1..10] of real;
ran:real;
i:integer;
begin
for i:= 1 to 10 do
begin
ran:=100-random(200)+1;
a[i]:= ran;
if a[i]< 0
then begin
write(a[i],' ');
writeln(i);
end;
end;
end.<span>
</span>
Разные органы чувств, системы восприятия, чтение производится зрением, а прослушивание воспринимается на слух.<span>Ноты несут свойства: какие задеть струны и как, но как это повлияет на тебя зависит больше от твоего настроения и того, что ты ищешь услышать. А информация в чистом виде не греет и никому не нужна, разве что кто- то пытается извлечь какую- то пользу. С точки зрения вселенной разницы никакой, просто что-то заденет и поможет жить, а что- то так и звенит в пустоте в виде шума.</span>
Смотри прикрепленный файл