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>
<span>2)С:/год/месяц/квартал/неделя/день</span>
1) 4 бита, 500 битов, 50 байтов, 0,3 кБайта, 500 байтов
2)7
3) Не видно полностью условие
1_2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
49 25 50 90 82 20 71 25 57 45
Полученный массив:
-3 -3 3 3 3 3 -3 -3 -3 -3
1_3.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if i mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
85 29 99 27 80 70 70 58 78 46
Полученный массив:
-3 3 -3 3 -3 3 -3 3 -3 3