Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('min = ',min);
for i:=1 to n do
if a[i]=min then a[i]:=99;
writeln('Полученный массив:');
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
Исходный массив:
5 13 9 13 19 3 20 5 9 3
min = 3
Полученный массив:
5 13 9 13 19 99 20 5 9 99
Есть =)
program z;
var k, x, i: integer;
begin
readln(k);
x:=1;
for i:=1 to k do
begin
if ((x + 1) mod 3 = 0) then x:=x*3
else x:=x+1;
end;
writeln(x);
end.