Question

Решите щадачи начиная с номера 22. на паскале

Answer 1

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.