xerex21
Var a,n,max: integer; begin max:=-1000; n:=readinteger('Введите число n :'); var arr:=arrrandom(n); for var i:= 0 to n-1 do begin readln(a); arr[i]:=a;if (a>max) then max:=a; end; for var i:=0 to n-1 do if (arr[i]<0)then arr[i]:=arr[i] div max; print(arr); end.
var a,n,min: integer; begin min:=1000; n:=readinteger('Введите число n :'); var arr:=arrrandom(n); for var i:= 0 to n-1 do begin readln(a); arr[i]:=a; if (a<min) then min:=a; end; for var i:=0 to n-1 do if ( arr[i]>0) and (i mod 3 = 0)then arr[i]:=arr[i]*min; print(arr); end.
var a,n,max,min,f,s: integer; begin max:=-1000; min:=1000; n:=readinteger('Введите число n :'); var arr:=arrrandom(n); for var i:= 0 to n-1 do begin readln(a); arr[i]:=a; if (a>max) then max:=a; if (a<min) then min:=a; end; for var i:=0 to n-1 do begin if ( arr[i]=min)then f:=i; if (arr[i]=max) then s:=i; end; swap(arr[f],arr[s]); print(arr); end.
Answers & Comments
begin
max:=-1000;
n:=readinteger('Введите число n :');
var arr:=arrrandom(n);
for var i:= 0 to n-1 do
begin
readln(a);
arr[i]:=a;if (a>max) then
max:=a;
end;
for var i:=0 to n-1 do
if (arr[i]<0)then
arr[i]:=arr[i] div max;
print(arr);
end.
var a,n,min: integer;
begin
min:=1000;
n:=readinteger('Введите число n :');
var arr:=arrrandom(n);
for var i:= 0 to n-1 do
begin
readln(a);
arr[i]:=a;
if (a<min) then
min:=a;
end;
for var i:=0 to n-1 do
if ( arr[i]>0) and (i mod 3 = 0)then
arr[i]:=arr[i]*min;
print(arr);
end.
var a,n,max,min,f,s: integer;
begin
max:=-1000;
min:=1000;
n:=readinteger('Введите число n :');
var arr:=arrrandom(n);
for var i:= 0 to n-1 do
begin
readln(a);
arr[i]:=a;
if (a>max) then
max:=a;
if (a<min) then
min:=a;
end;
for var i:=0 to n-1 do
begin
if ( arr[i]=min)then
f:=i;
if (arr[i]=max) then
s:=i;
end;
swap(arr[f],arr[s]);
print(arr);
end.