var n,k:integer; s: string; begin writteln('введите n,k'); readln(n,k); str(n,s);{преобразуем число n в строку s} witeln(s[length(s)-k+1]); {length(s) -длина строки} end.
{2 задача} cons nmax=20; var a:array [1..nmax] of integer; min1,min2,i,k1,k2,N:integer; begin writeln('введите кол-во элементов массива'); readln(N); writeln('введите элементы массива'); for i:=1 to N do read(a[i]); min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min1>a[i] then begin min1:=a[i]; k1:=i end; {исключаем найденный минимальный элемент из массива- можно и по другому} for i:=k1+1 to N do a[i-1]:=a[i]; k1:=n-1; end; min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента} for i:=2 to n do if min2>a[i] then begin min2:=a[i]; k2:=i end; writeln(min1:5,min2:5) {если нужно было сохранить массив в начале программы надо ввести дополнительный массив }
Var a:array[1..10] of integer; k,n,i:integer; min:INTEGER; begin randomize; N:=10; k:=0 {кол-во отрицательных элементов}; writeln ('исходный массив'); for i:=1 to N do begin if random(2) =1 then a[i]:=random(100) else begin k:=k+1; a[i]:=-random(100); min:=a[I] end; write(a[i]:5); end; writeln; {поиск минимального положительного} if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные} begin for i:=1 to N do if (a[i]>0) and (a[i]<min) then min:=a[i]; {замена} for i:=1 to N do if (a[i]<0) then a[i]:=min; end; writeln('Новый массив') for i:=1 to N do write(a[i]:5); end.
s: string;
begin
writteln('введите n,k');
readln(n,k);
str(n,s);{преобразуем число n в строку s}
witeln(s[length(s)-k+1]); {length(s) -длина строки}
end.
{2 задача}
cons nmax=20;
var a:array [1..nmax] of integer;
min1,min2,i,k1,k2,N:integer;
begin
writeln('введите кол-во элементов массива');
readln(N);
writeln('введите элементы массива');
for i:=1 to N do read(a[i]);
min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента}
for i:=2 to n do
if min1>a[i] then
begin
min1:=a[i];
k1:=i
end;
{исключаем найденный минимальный элемент из массива- можно и по другому}
for i:=k1+1 to N do
a[i-1]:=a[i];
k1:=n-1;
end;
min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента}
for i:=2 to n do
if min2>a[i] then
begin
min2:=a[i];
k2:=i
end;
writeln(min1:5,min2:5)
{если нужно было сохранить массив в начале программы надо ввести дополнительный массив }
end.
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.