На диске поместится семь копий
Человека окружает множество объектов, но самые главные для существования индивидума это воздух, вода, еда и социум без них никакой человек не в состоянии жить
program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
Ответ:4
Объяснение:
Исполнитель может выполнить только те команды, которые входят в его систему команд .
Dim Massiv(9) As Integer
Dim Max As Integer
Dim x As Integer
Max = Massiv(0)
For x = 1 To 9
If Massiv(x) > Max Then Max = Massiv(x)
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox(Max)</span>