Всегда высокую роль. Вот подумай сами. Вещество - это ресурс для чего либо, ресурс хотя бы минимум для выживания. Если мы не будем есть то умрем. Энергия нужна чтоб делать что-то. Когда нет сил, то ничего не сделаешь, а будешь валяться пластом. Даже чтоб есть нужна энергия, чтоб живать, глотать, переваривать и тд Информация это знание. Даже элементарно, чтоб поесть, надо знать где найти еду, как ее приготовить, что можно есть, а что нельзя и тд.
Вывод - не зависимо от этапа развития всегда желателен баланс ресурсов, энергии и информации.
var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.